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IDENTIFICATION 


PRODUCT CODE: AC-9471C-NC 
PRODUCT NANE: CZTUGCO TMOZ/TE16 DR FCNT TR 
DATE CREATED: AUG 77 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR: R. BARNES 
REVISED: 11-NOV-77 BY CLEM WALSH 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 


NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION DIGITAL EQUIPMENT CORPORATION ASSUMES 


SEQ 0001 


NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION 


er ee ee 
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TNOZ _ FUNCTION TIMER PAGE 3 


ABSTRACT 


PROGRAM DZTUG MEASURES THE TIME REQUIRED AND GAP 
SIZES PRODUCED BY THE TNOZ2/TE16 $$MAGTAPE 
DRIVE/SLAVE. 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS, AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE. — 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BP! SKEW TAPE. 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. IF THE ERROR iS DATA RELATEDC(PARITY: ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 


iF THE TIME CHECK IS OUT OF RANGE. IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 


A 


ee ee _—— -- 
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137 TMO2 DRIVE FUNCTION TIMER PAGE 4 

138 REQUIREMENTS 

139 

140 

141 

142 

143 


153 CHAPTER 1 
155 REQUIREMENTS 


159 PDOP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TMOZ2/TE16 
160 . CONTROLLER/MAGTAPE STATIONS. 


162 XXXPROGRAM CAN BE RUN ON A PROCESSOR THAT DOES NOT HAVE A HARDWARE SWITCCH REGISTER. 


163 A SOFTWARE SWITCH REGISTER (SWREG) LOC. 176 1S AUTOMATICALLY SELECTED(REFER TO 
164 CHAPTER 3.fTOR DESCRIPTION OF HOW TO DYNAMICALLY LOAD LOC. 176)%%% 


168 1.1 OPTIONAL EQUIPMENT USED 
170 1. NONE 


174 1.2 STORAGE 

176 PROGRAM LOADS AND RUNS IN THE FIRST 4¥ OF MEMORY. 

7? 

180 13 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


182 MAINDEC-11-OZTUC CONTROL LOGIC TEST 
183 MAINDEC-11-DZTUB BASIC FUNCTION TEST 


- oe -_——-— - 
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LOADING AND STARTING PROCEDURE 


CHAPTER 2 
LOADING AND STARTING PROCEDURE 


THE PROCEDURE IS AS FOLLOWS: 
LOAD PROGRAM USING THE ABSOLUTE LOADER 
LOAD ADDRESS = 200 
SET OPERATING SWITCHES 
PRESS START | 


SEQ 0005 


XXXIF THE SOFTWARE SWITCH REGISTER IS USED THEN THE PROGRAM WILL TYPE SWR=XXXXXX NEW= 
THIS WILL ALLOW LOC. 176 TO BE CHANGED BEFORE THE START OF THE TESTING. (REFER TO CHAP 


PROGRAM WILL REQUEST ORIVE (TNOZ) AND SLAVE (TE16) NUMBERS TO BE 
TESTED. TYPE ORIVE/SLAVE NUMBERS WITH A COMMA (.) BETWEEN EACH 
DRIVE/SLAVE TO BE TESTED. 


REQUESTS FOR TAPE SPEED TESTS AND NRZ ONLY MODE WILL BE MADE. 
RESPONSE TO TAPE SPEED ONLY REQUEST WITH A ONE (1) WILL CAUSE — 
THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY. THIS IS THE ONLY WAY 
TO TEST TAPE SPEED. 





NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPI DATA TIME TEST. 


TYPE CONTROL U ( U) TO DELETE LINE TYPED OR RUSOUT TO DELETE LAST 
CHARACTER(S). 


PROGRAM WILL PUBLISH TIMES REQUIRED AND REPORT ERRORS. 


2.1 ACT1I1 OPERATION 


IF THE PROGRAM |S RUN IN QUICK VERIFY MODE. FUNCTION TESTS ARE NOT 
| TERATED. 


ee rem eee a 
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251 CHAPTER 3 
253 SWITCH SETTINGS 


256 IF THE DIAGNOSTIC iS RUN ON A CPU WITHOUT A SWITCH 

257 REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
258 THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
259 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
260 AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 

261 REGISTER (LOC. 176) IS USED. 


264 CONTROL: 


266 THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
267 REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
268 DOING THE FOLLOWING: 


270 1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
271 LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


273s 2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX 1S THE OCTAL CONTENTS 
274 OF THE SOFTWARE SWITCH REGISTER ) 


276 3) AFTER THE **NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
2? OF THE FOLLOWING AT THE TTY: 


2c A) TYPE A NUMBER TO BE LOADED INTC LOC. 176 FOLLOWED BY A <CR>. 
280 (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
281 WILL BE ALLOWED) 

282 lr A <CR> 1S THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 

283 REGISTER CONTENTS WILL NOT BE CHANGED. 


285 B) 1F A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
286 BACK TO STEP 2. 
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SEQ 0007 


289 Swis HALT ON ERROR THIS SWITCH WHEN SET WILL HALT THE 
290 (100000) PROCESSOR WHEN AN ERROR IS DETECTED 
294 THE PC+2 AND PSW AT THE TIME OF THE 
292 ERROR 1S STORED ON THE STACK. PRESSING 
293 CONTINUE WILL CAUSE THE ERROR TO BE 
294 TYPED (IF SELECTED) AND FURTHER TESTING 
295 RESUMED. 
297 SW14 . LOOP SUBTEST THIS SWITCH WHEN SET LOOPS THE CURRENT 
238 (O40000) SUBTEST REGARDLESS OF ERROR CONDITION. 
700 SW13 INHIBIT ERROR THIS SWITCH WHEN SET INHIBITS ERROR 

301 (020000) TYPEOUT TYPEOUT. 
302 SW11 INHIBIT SUB- THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
308 (004000) TEST ITERATION TO BE EXECUTED ONLY ONCE. (INITIAL 
305 STARTUP ONLY). 
307 SW10 INHIBIT THIS SWITCH WHEN SET WILL INHIBIT THE 
308 (002000) FUNCTION TIME PRINTING OF THE FUNCTION TIMES. (SEE 
303 PUBLICATION CHAPTER 8. ) 

, 
311 swo9 RING BELL THIS SWITCH WHEN SET WILL RING THE BELL 
312 (001000) ON ERROR ON THE TTY WHEN AN ERROR 1S DETECTED. 
313 
314 SuO7 HALT AFTER | THIS SWITCH WHEN SET WILL CAUSE THE 
315 (000200) SELECTED TEST PROGRAM TO HALT AFTER THE TEST SELECTED 
316 IN SWOS-SWOO 1S EXECUTED. 
317 
318 SHO6 CONTINUOUS | THIS SWITCH WHEN SET WILL CAUSE THE 
319 (000100) CYCLE PROGRAM TO RUN CONTINUOUSLY UNTIL 
22 STOPPED BY THE OPERATOR. 
321 
322 Su5-0 TEST SELECT | THE PROGRAM WILL HALT AFTER EXECUTION 
323 OF THE TEST SELECTED WHEN SWO7 IS SET. 


e rae eh. -e | 
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ERRORS 


ene ee ee eee 


CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEQUT FORMAT CHAROWARE): DATA RELATED ERRORS (CIE: PARITY ERROR) ARE PRINTED 
AND HAVE NO EFFECT ON TIME. 
TEST # XXXXXX DEVICE ERROR 


CS$1 WE BR FC CS2 DS ER1 
ARAAAAA BBBBEB CCCCCC DODDDD EEEEEE FFFFFF GGGGGG 


WHERE: 


XXXXXX = TEST NUMBER 
AAAAAAR-1titit = CONTENTS OF TAPE REGISTER 172440-172454 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <AAAAAA-BBBBBB> ACTUAL = CCCCCC 


ee 2 er ee ee eee 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 


>a . here 
gS MEAT LEER? Be SEE ul ER ett GOR Trl ul 
FUNCTIONS: 
1. LOADS R5 WITH BASE ADDRESS 
TYPES TIME LINE <SWO8> 
PROVIDES CONTINUOUS LOOP <SW14> 
MOVES FUNCTION TIME INTO TABLE 
OUTPUTS LINE ITEM IF SELECTED 


3 
y 
5 
6. PROVIDES HALT ON TEST <SWO7> 
7 
§ 


to 


DELAYS 350NS BEFORE STARTING TEST 
INIT'S DRIVE/SLAVE 
9. CLEARS THE ERROR FLAG CERFLG) 
THE ROUTINE MONITORS SW14, SW1i1. SW10, SWO8. AND SWO?. 


KXXTHIS ROUTINE WILL CHECK FOR CNTL G< G> BY DOING A JSR PC. CKSHWR 
(REFER TO CHAPTER 3 FOR DESCRIPTION). 


5.2 PUBLISH 


THE PUBLISH ROUTINE 1S CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 
TO O (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A “SINGLE LINE 
ITEM” EACH TIME IT iS CALLED. 


A ee 


SEQ 0009 


SE ee On ee 
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TMOZ DRIVE FUNCTION TIMER PAGE 9 
SUBROUTINE ABSTRACTS 


5.3 . ALT 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN ERROR 
1S DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 
~ Fone y IN SEC 4.1. A HLT+1 (CTRAP4+1) FORMATS THE ERROR AS SHOWN IN 


XXXTHIS ROUTINE WILL CHECK FOR A CNTL G <¢ G> BY DOING A JSR PC, CKSWR 
(REFER TO CHAPTER 3 FOR DESCRIPTION)> 


-s-——- 





SEQ 0010 i” 
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442 MISCELLANEOUS 


458 - CHAPTER 6 
460 MISCELLANEOUS 


464 6.1 STACK POINTER 


466 THE STACK POINTER iS INITAILLY SET TO 500 AND IS RESET TO 500 BY THE 
467 SCOPEA ROUTINE. 


471 6.2 EXECUTION TIME 
473 WHEN SW11=1 CINHIBIT ITERATIONS) THE TIME REQUIRED IS 2 MIN. 
475 WHEN SW11=0 CITERATE SUBTESTS) THE TIME REQUIRED IS 9 MIN. 
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TMOZ DRIVE FUNCTION TIMER 


PROGRAM DESCRIPTION 


¥ 


1 SAMPLE TIME DOCUMENT 


nM 1 
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CHAPTER 7 


PROGRAM DESCRIPTION 


TYPE FIRST ADDRESS OF CONTROLER 172440 
TYPE TMOZ ORIVE @°S TO BE TEST 


EO 0 
FOR TMOZ ORIVE O- TYPE SLAVE #'S TO —" 7 


TAPE SPEED TESTS ONLY? (YES/NO = 1/0) 


NRZ ONLY? (YES/NO = 170) 


PAGE 11 


0 
REXIAAAAATTAAATAAAAATAAALAAATA ALATA AALS ALAA ALAA AAA AAAS AAA AAA AAA AAA ALY 


PE DE DE DE FE DE FE DE FE FE DE DE FE DE DE DE DE FE DE PE DE DE DE DE DE DE 


TMOZ DRIVE FUNCTION TIMES- ORIVE # O SLAVE & 7 9 CHAN. 





FUNCTION 
WRITE FROM BOT 
WRITE START 


WRITE SHUTDOWN 
WRITE SETTLEOOWN 











E 
READ SETTLEDOWN 
READ REV START 

READ REV SHUTDOWN 
READ REV SETTLEDOWN 
URN AR DELAY F-R 


HALF 





WRITE FILE MARK 


TIME (SPECIFICATION) 
RANGE =< 154000- 150000> 
RANGE = <009500-008700> 
RANGE =< 008500> 
RANGE = <01 3500-008100> 
RANGE = <037000-033000> 
RANGE = <003200-002600> 
RANGE = <004650-004250> 
RANGE =<01 3500-008100> 
RANGE = <003200-002600> 
RANGE = <003700-003300> 
RANGE = <01 3500-008100> 
RANGE =<016700-010700> 
RANGE = <016700-010700> 
RANGE = <012900-009500> 
RANGE = <01 1800-008500> 
RANGE = <014800-01 3700> 
RANGE = <014000-012400> 
RANGE = <024100-023100> 
RANGE = <024000-023000> 
RANGE = <024000-023000> 
RANGE = <025100-024100> 
RANGE =<101000-099000> 
RANGE = <105000-103000> 

















TIME CACTUAL ) 

ACTUAL =152740 
ACTUAL =009120 
ACTUAL =O008840 
ACTUAL =010970 





ACTUAL = =002740 
ACTUAL =003520 
ACT!:AL=010970 
ACTUAL =01 3600 
ACTUAL =01 3660 
ACTUAL =012200 
ACTUAL =010520 
ACTUAL=014500 
ACTUAL =01 3040 
ACTUAL=023460 
AC TURAL =623350 
ACTUAL =023400 
ACTUAL =0244 70 
ACTUAL =099510 
ACTUAL =103990 


SER. # 5009 


o_o eee - 


SEQ 0012 


7 
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632 
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533 

He TMOZ DRIVE FUNCTION TIMER PAGE 12 

— 7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 

538 TYPE FIRST ADDRESS OF CONTROLLER 172440 

639 TYPE TMOZ DRIVE #'S TO BE TESTED O 

540 FOR TMOZ ORIVE O- TYPE SLAVE #'S TC BE TESTED 7 

541 SPEED TESTS ONLY? (YES/NO = 1/0) 1 

542 SAERRALESERERERESEEE EASE LEE EASES EERE 

_ — DRIVE FUNCTION TIMES- DRIVE # O SLAVE # 7 9 CHAN. SER. # 5009 
uy 

546 XFUNCT ION TIME (SPECIFICATION) TIME CACTUAL ) 

S46 XTAPE SPEED FWD RANGE = <022700-021700> ACTUAL =022500 
547 XTAPE SPEED REV RANGE = <022700-021700> ACTUAL =022500 
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TMOZ DRIVE FUNCTION TIMER 
TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO. /NANE 


’.2 


1. 


WRITE FROM BOT 


WRITE START 


WRITE SHUTDOWN 


WRITE SETTLEDOWN 


READ FROM BOT 


READ START 


READ SHUTDOWN 


READ SETTLEOOWN 


. READ REVERSE START 


READ REVERSE SHUTDOWN 


READ REVERSE SETTLEDOWN 


TURN AROUND F-R 


TURN AROUND R-F 


GAP SIZE-STOP HALF 


GAP SIZE-START HALF 


GAP SIZE INTERRECORD 


C 2 
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ee a ee ——e 


SEQ 0015 


PAGE 13 


RELATED ADJUSTMENTS 


XNONE 


x A 


XFWPD/REV SPEED-START/STOP-RAMPS 


KSAME AS IN TEST 16 


XFWD/REV SPEED 
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604 TMOZ DRIVE FUNCTION TIMER PAGE 14 
606 | 21. GAP CONSISTENCY SAME AS IN TEST 16 
608 XTEST NUMBER 22 1S RESERVED FOR FUTURE USE 

610 23. DATA TIME 200 BPI XNONE 


613 24. DATA TIME 556 BPI a 

blo 25. DATA TIME 800 BPI ae 

619 26. DATA TIME 1600 BPI x" 

622 27. ERASE GAP TIME Pa 

625 30. WRITE FILE MARK x 

628 31. TAPE SPEED-FORWARD SFWD SPEED 

631 32. TAPE SPEED-REVERSE XPEVERSE SPEED 


634 X¥XFKNOTE: iF TIME PROBLEMS APPEAR IN T1 THRU Ti_. RUN TAPE SPEED TESTS FIRSTSX4aRR% 


Neen ei tit lL Utila: ttm - = = 
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635 
O37 TMOZ ORIVE FUNCTION TIMER PAGE 15 
re ‘.3 TEST DESCRIPTIONS: 
640 THE FIRST THIRTEEN (13) TESTS (T1 - 115) ARE CHECKS OF THE 
641 ROM CIRCUITS IN THE TE16 (M9811), THE ACCL COUNTER IN THE 
ro, TMOZ (M8903), AND THE SETTLEDOWN ONE SHOT (M8910). 
Ae T1. WRITE FROM BOT: 
646 THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
647 MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
Ae FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 
= ba 
50 1. ASSURE TAPE 1S STOPPED AT BOT. 
651 2. ISSUE A WRITE COMMAND 
652 3. MONITOR BIT 15 OF TC (ACCL 
653 4. TIME FROM GO TO ACCL RESET. 1S BOT DELAY 
654 5. STOP 
655 
- TZ. WRITE START: 
6 
658 THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
659 Ti. HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 
69 FROM BOT. 
1 
662 1. LCAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
663 Zz. ISSUE A WRITE COMMAND 
664 3. MONITOR BIT 15 OF TC (ACCL 
665 4. TIME FROM GO TO RESET OF ACCL 1S START DELAY 
666 5. STOP 
667 
668 T3. WRITE SHUTDOWN: 
669 
670 THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
671 WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
672 ASSURES. !N PART. A PROPER INTERROCORD GAP. 
673 
674 1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
675 Zz. ISSUE A WRITE COMMAND. 
676 3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 
677 4 TIME FROM FC=0 TO ASSERTION OF SDWN IS 
678 THE SHUTDOWN TIME. 
679 5  syoPr 


_ —s—. ee ee 


SEQ 0017 


-_——— 





ee ee a - 
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~ 8-22 oo —_—— 


ont T4. WRITE SETTLEDOWN: 

683 THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

684 FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 

685 BE STOPPED. THIS IS A PART OF THE GAP TIMING IN LOGIC. 
686 THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
a WILL BE MEASURED IN A LATER TEST. 

689 1. LEAVE TAPE AT ITS — POSITION. ASSURE THAT IT IS STOPPED 
690 Z. ISSUE A WRITE COMM ?_ 

691 3. MONITOR BIT 4 OF DS (SOWN) 

692 4. TIME FROM SET OF SDWN TO RESET OF SOWN IS THE 

693 SETTLEDOWN DELAY 

694 5. STOP 

695 

696 

697 

698 

TS. READ FROM BOT 

701 THIS MEASUREMENT 1S MADE EXACTLY AS THE WRITE 

702 MEASUREMENT IN Ti. USE THE SAME RECORD THAT WAS 

703 WRITTEN IN T1. 

704 

705 1. REWIND TO BOT 

706 2. ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
707 3. READ FORWARD 1 RECORD. 

708 4. MONITOR BIT 15 OF TC (ACCL) 

709 S. 

710 6. 

711 


TIME FROM GO TO ACCL !S BOT DELAY 
STOP ‘ 


G 2 
OZTUG-B TMOZ2/TE16 ORIVE FUNCTION TIMER MACY11 30(1046) O2-DEC-77 09:48 PAGE 19 


CZTUGC. P11 


O2-DEC-77 O09: 46 


To. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN 7Z. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
ISSUE A READ FORWARD OF ag: RECORD WRITTEN IN STEP 1. 

MONITOR BIT 15 OF TC CACCL 

a. FROM GO TO RESET CF ACCL 1S START DELAY 


READ SHUTDOWN: 


THIS TEST MEASURES THE SAME DELAY AS IN T3. 


Pree 


WRITE 1 RECORD, THEN BACKSPACE OVER IT. ASSURE TAPE IS STOPPED. 


READ FORWARD THE RECORD WRITTEN IN STEP 1. 

MONITOR FRAME COUNT AND BIT 4 OF OS (SDWN). 

TIME FROM FCSRECORD SIZE (LAST FRAME READ) TO SDWN=1 
Hh Fi SHUTDOWN TIME. 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T4. 


me are 


WRITE 1 RECORD. THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


READ FORWARD THE RECORD WRITTEN IN STEP 1. 
MONITOR BIT 4 OF OS (SDWN) 

TIME FROM SET OF SOWN TO RESET OF SDWN IS THE 
tags DELAY. 


—we a - — 


SEQ 0019 


——— — 


SS em ee | 
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T1i1. READ REVERSE START: 


THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE 1S STOPPED. 

2. READ REVERSE THE RECORD ee IN STEP 1. 

3. MONITOR BIT 15 OF TC CACCL 

3 ee FROM GO TO RESET OF ACCL 1S THE START TIME 


T1Z. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE PEVERSE 
DIRECTION. 


WRITE 1 RECORD. ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN). 

TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SOWN=-1 
Le READ REVERSE SHUTDOWN TIME. 


eer 


T13. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE 1S STOPPCD. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 
MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
oC DELAY 


wo eee 


T14. TURN AROUND DELAY-FORWARO TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FCR THE TAPE 
TO CHANGE DIRECTION. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 

MONITOR BIT 7 OF DS (DRY) 

WHEN DRY IS ASSERTED (EOR). IMMEDIATELY !SSUE A 

READ REVERSE OF THAT RECORD. 

MONITOR BIT 15 OF TC CACCL). 

TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 
ee TIME. 


ee PS eee 


—————_— 


SEQ 0020 


SE ES ee eee _- _— 
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799 

800 TMOZ OR!YE FUNCTION TIMER PAGE 18 
802 T15. TURN AROUND CELAY-REVERSE TO FORWARD 

804 THIS TEST WILL MEASURE THE TIME AS IN T14, BUT IN THE 

805 OPPOSITE DIRECTION. 

807 1. WRITE 1 RECORD. 

208 2. ASSURE TAPE IS STOPPED 

809 3. READ REVERSE 

£10 4. MONITOR DRY (BiT 7 OF DS) 

311 5. WHEN ORY = 1, ISSUE A READ FORWARD 

£12 6. MONITOR ACCL (BIT 15 OF TC) 

312 ?. TIME FROM GO FORWARD TO ACCL = 1 1S THE TURN AROUND TINE. 
E14 7 | 


J 2 
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TMOZ DRIVE FUNCTION TIMER PAGE 19 


GAP MEASUREMENTS: 


THE PREVIOUS THIRTEEN (13) TESTS WERE aes te OF LOGIC 
DELAYS PERFORMED BY THE TMOZ OR TE16 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST. HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 

THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 

CREATED BY TWO ACTIONS. THE START OF MOTION AND THE 

STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT. MADE ON THE FLY. OF 

THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


T16. GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
DE a CYCLE. IN OTHER WORDS. THE DISTANCE INTO 


WRITE 1 RECORD. 

ASSURE TAPE 'S STOPPED. 

ISSUE A RERD REVERSE OVER THE RECORD 

MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ ‘(FC = 1) 
— FROM GO=1 TO FC=1 1S THE LENGTH OF THE GAP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 


CM UN> 


ISSUE A READ FORWARD 
MONITOR FC FOR FC=1 
acs FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE CINTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A SUMMATION OF T16 AND T1? DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT iN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND Ti7. 


WRITE Z RECORDS. 

READ REVERSE OVER THE SECOND RECORD 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

MONITOR FRAME COUNT 

TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP. 


em hPa 


PS fee 


WRITE 1 RECORD. THEN REVERSE OVER IT. ASSURE TAPE iS STOPPED. 


ee — —— 


SEQ 0022 


———— a ea 


' 
A A A 
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871 7. $TOP 


K 2 
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Ne es 


—_ 


SEQ 0023 


+ Gees epee eee = +o - - 
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a TMOZ ORIVE FUNCTION TIMER PAGE 20 
io T21. GAP CONSISTENCY: 

876 NOK THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

877 GAP |S THE PROPER SIZE. LET US DETERMINE THE CONSISTENCY 
878 OF THE GAP UNDER VARIOU EXECUTION TIMES. 

879 BY WRITING A SERIES OF RECORDS. EACH WITH A DIFFERENT 

880 DELAY BETWEEN EXECUTION. WE CAN ESTABLISH THE CONSISTENCY 
881 OF THE GAPS BY READING THESE RECORDS AND MONITORING 

aa THE!R INTERRECORD GAPS. ON THE FLY. 

884 1. REWIND TAPE TO BOT. 

885 Z. WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

886 3. WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
887 OF FROM O TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 
838 4. BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

889 5. READ FORWARD (NON-STOP) OVER THESE 16 RECORDS. EACH 
890 TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 
891 UNTIL THE FRAME COUNT NEXT GOES FROM O TO 1 (FC=1). 
892 6. THE TIMES FROM DRY TO FC=1 1S THE GAP TIME AND IT 
a , ote REMAIN CONSISTANT FOR ALL RECORDS. 

895 AX(SEE GTIMTBL IN OZTUG LISTING FOR GAP TIMES) 4% 

896 

897 

898 T22. RESERVED FOR FUTURE USEXX24% 

899 

900 T23. DATA TIME AT 200 BPI: 

901 

902 THIS TEST WILL MEASURE THE ‘ REQUIRED TO WRITE 

903 ONE (1) INCH OF TAPE AT 200 BP 

904 BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

905 THE TAPE 1 INCH (200 FRAMES). DATA RATE 

906 CAN BE VAR IFIED. 

907 

908 1. REWIND TO BOT AND ALLOW TAPE TO STOP 

909 Z. WRITE A RECORD AT 200 BPI. 

910 3. MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

911 4 THE TIME FROM FC=FC+1 TO DRY WILL BE THE TIME REQUIRED 
912 FOR 1 INCH AT THE SELECTED DENSITY 

913 5. STOP 

914 ; 

915 

916 T24. DATA TIME AT 556 BPI: 

917 REPEAT STEPS 1 THRU 5 OF T23 AT 556 BPI. 

918 

919 T25. DATA TIME AT 800 BPI: 

920 REPEAT STEPS 1 THRU 5 AT 800 BPI. 

921 

922 T26. DATA TIME AT 1600 BPi (PE): 

923 REPEAT STEPS 1 THRU S AT 1600 BPI. 

924 KKTHIS TEST 1S NOT EXECUTED IF NRZ ONLY*% 

925 





Ve ee 
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927 

oo TMOZ2 ORIVE FUNCTION TIMER PAGE 21 
ng T27. ERASE: 

932 THE ERASE COMMAND WILL CAUSE AN AREA OF THE a (3) 
933 INCHES TO BE DC ERASED IN THE FORWARD DIRECT 

934 THIS TEST WILL ASSURE THAT THE PROPER DISTANCE. 1s 
—- ERASED. 

937 1. LEAVE TAPE AT ITS PRESENT POSITION. 

938 Z. ISSUE AN ERASE COMMAND. 

939 3. MONITOR ORY (BIT 7 OF DS) 

940 4. THE TIME FROM GO TO DRY WILL BE THE TIME 

941 REQUIRED TO ERASE 3 INCHES OF TAPE AND WILL 

942 REFLECT THE DISTANCE. DENSITY IS NOT A FACTOR. 
943 5. SToP 

944 

945 

946 T30. TAPE MARK: 

947 

948 THIS TEST IS ALSO A CHECK ON THE THREE (3) a GAP. 
949 WHEN A TAPE MARK IS WRITTEN, A 3 INCH GAP 

950 CREATED BEFORE DATA IS PUT ON TAPE. 

951 

952 1. LEAVE TAPE AT ITS PRESENT POSITION 

953 2. ISSUE A WRITE TAPE MARK COMMAND 

954 3. MONITOR ORY (BIT 7 OF DS) 

955 4. THE TIME FROM GO TO DRY WILL BE THE TIME 

956 REQUIRED TO WRITE THE TM RECORD PLUS THE 

957 3 INCH GAP. 


955 5. STOP 
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TMOZ DRIVE FUNCTION TIMER PAGE 22 


T31. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 
eon TAPE 1S STOPPED AT BOT. 

ISSUE A READ FORWARD (800 BPI. NORMAL) 
MONITOR FC FOR FC = 800(10) 
MONITOR FC FOR FC = 8800(10) 

TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 
FOR TAPE TO TRAVEL 10 | a 

DIVIDE THE TIME FOR 10 INCHES BY 10. 

— IS AN AVERAGE SPEED FOR 1 INCH. 


Pr. Pree. 


T32. TAPE SPEED REVERSE: 


THIS TEST 1S THE SAME AS TEST 31. BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


ADVANCE TAPE OFF OF BOT. 

ISSUE A READ REVERSE. 

yi STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 
STOP. 


rg acl a 


SEQ 0026 


OC tiwag 
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991 
992 -NLIST MC 
933 List 6 
994 . ABS 
995 .MCALL SCPVEC, SCPREG, SCATCH, STYPE 
996 TITLE OZTUG-B THOZ/TE16 DRIVE FUNCTION TIMER 
997 .SBTTL STARTING INSTRUCTIONS 
998 *LORDING AND STARTING PROCEEDURE 
999 ; LOAD PROGRAM USING ABS LOADER 
1000 ; LOAD ADDRESS 200 
1001 ; SET SWITCH OPTIONS 
1002 , PRESS START 
1003 : 
1004 *GENERAL REGISTER USAGE: 
1005 ; RO=ADDRESS OF ‘FC' REGISTER (SET BY SCOPE) 
109€ ; RisADDRESS OF ‘DS' REGISTER (SET BY SCOPE) 
1067 ; RZ=RETURN PC FROM TIMER (SET BY EACH TEST) 
1008 ; R3=INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
1009 R4Y=CONTAINS ‘TICK’ COUNT WHEN TIMER 1S RUNNING (SET BY TIMER) 
re ; RS=ADDRESS OF CS1 (SET BY SCOPE) 
1011 
1012 *>SWITCH REGISTER SWITCH ASSIGNMENTS 
1013 100000 SWi5= 100000 +HALT ON ERROR 
1G14 040000 SW14= 040000 +LOOP SUBTEST 
1015 020000 SWi3= 020000 + INHIBIT ERROR TYPE OUT 
1016 004000 SWi1= 004000 +; INHIBIT SUBTEST ITERATION 
1017 002000 SWid= 002000 + INHIBIT PUBLICATION OF FUNCTION TIMES 
1018 001000 SWO9= 001000 *RING BELL ON ERROR 
1019 000400 SWO8= 000400 ;TYPE LINE ITEM AFTER EACH ITERATION 
1020 000200 SHWO7= 000200 *HALT ON TEST SELECTED IN SWO5-SHOO 
1021 000100 SWO6= 000100 CONTINUOUS CYCLE 
1022 
1023 
1024 
1025 


OZTUG- .. TMOZ/7TE16 DRIVE FUNCTION TIMER MACY11 30(104%6) 
Pii 46 STARTING INSTRUCTIONS 


CZ2TUGC. 


000040 


000041 


900042 


00004e 


000052 


O02-DEC-77 Q9: 


000764 
000040 
000 


000041 
000 


000042 
000000 


O00C46 
013264 
CO0052 
000900 


000-64 
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item +  fin—eoemsmeeeneaneeees 
AXXXKRAAAAARA AAA AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAA EES 


DRIVE: 


MED! UNM: 


SSVPC=. 


=4Q 


BYTE 
41 
_ BYTE 


. 242 
. WORD 


. =46 
. WORD 
. =52 
. WORD 


. =SSUPC 


SENDAD 


+DRIVE # FOR XXDP LOAD MEDIUM 


+*XDP LOAD MEDIUM 
+ASSEMBLE AS A O 


+LOCATION INDICATOR - AUTOM/MAN MODE 
+ASSEMBLE AS A O 


+SET TO SENDAD IN . SEOP 
> CHARACTERISTICS OF PROGRAM 


sSET TOAD 
RESTORE PC 


KEKE A ARAL AAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA 


—_— A A 


SEQ 0028 
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1056 

1057 ; AXAAAKAAAAAAAAAAAAA AAAS AAALAA AA AAA AAA AA AAA AAA AAT AAA AAAs 
1058 ; ACT11 MODE INDICATORS 

be ; KXXAAAAAAAAA ALAA AAA AAA AAA AAA AAA AA AAA AAA AAAS A AA AAA AAA EAA 
1061 000764 9g00000 AUTOM: .WORD 0 ;AUTOMATIC MODE INDICATOR 

1062 000766 000 ACTIIM: .BYTE 0 +ACT11 AUTO MODE INDICATOR 

1063 000767 000 XXDPM: .BYTE OQ +%XDP AUTOM MODE INDICATOR 

1064 000770 000 ADUMPM: .BYTE 0 +ACT11 DUMP MODE INDICATOR 

dye 000771 000 XDUMPM: .BYTE 0 +XXDP DUMP MODE INDICATOR 

l 

1067 ; KXAKKKAA AKA A AAA A AAA AAA AAA AAA AAA AAA AAA AAA ATES 


. 
——- —— me me 


. = 
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CZTUGC. P11 02-DEC-77 O09: 46 STARTING INSTRUCTIONS 
1069 
at .MACRO SCHNMODE 
pe ; XXXKKXAEAAKAAAAAKAARAAAAAAA AAA AAA AA AAA AAA AAA AAA AAA AAA AKA EE 
1074 ; MACRO FOR SIZING DRIVES AND SLAVES 
1075 ; IN RUTOMATIC MODE. 
1076 
1077 : + 
1078 
1079 F + 
1080 
1081 MOV -1, ORVNUM > INIT DRIVE NUMBER 
1082 NXTDORV: MOV -1, SLVNUM > INIT SLAVE NUMBER 
1083 1$: MOV #40, dCSZ + INIT CONTROLLER 
1054 INC DRVNLUM ;STEP DRIVE & 
10385 CMP #10. ORVNUM ;ALL ORIVE TESTED? 
1086 BNE 2$ ;BRANCH - IF NO 
1087 JMP FINISH , EXIT 
1088 23: MOV DRVNUM, aCS2 LOAD ORIVE & 
1089 TST acsi ; ACCESS DRIVE 
1090 BiT #10000. @CS2 > NON-EXISTANT DRIVE? 
1091 BNE 1$ ;BRANCH - IF Y 
1092 NXTSLV: INC SLYNUM +; STEP SLAVE & 
1093 BNE 1$ ;BRANCH IF NOT SLAVE 0 
1094 TST DOR VNUM ;DRIVE 07? 
1095 BNE 1$ ;BRANCH - IF NO 
1096 TSTB XxXDPM , ¥XOP7 
1097 BEQ 1$ : BRANCH - IF NO 
1098 INC SLVNUM ;STEP TO SLAVE #1 
1099 1%: CMP #10, SLVNUM >;ALL DRIVES TESTED? 
1100 BEQ TORY >BRANCH - IF YES 
1101 MOV SLVNUM, aTC >LOAD SLAVE UNIT? 
1102 BIT #2000. a0T ; SLAVE PRESENT? 
1103 BEQ NXTSLV >BRANCH - IF NO (SPR=0) 
1104 BIT #140000. aDT 1S DRIVE A TRPE UNIT? 
1105 BEQ NXTSLV >BRANCH IF NO 
1106 
1107 KEXKKAAAKAAAA AERA KARA AAA ERAT AAR ARREARS 
1105 


CZ2TUGC. P11 


ee eet ee ee ee ee geet et get oe? ot 
et ee et ee et et ee ee pe eet ot oe et 
PDI VOID ODED Dy we we wee ee et 
NOmMfunmeOVDWOneuvcwmMeOoO 


000000 


000005 


177776 
177774 
177772 
177770 
177560 
177562 
177564 
177566 


000004 
000010 


RO=x0 
R1i=%1 
R2=%2 
R3=%3 
R4=%4 
R5=%5 
SP=%6 
PC=%7 
R10=%0 
R11=%1 
R12=%2 
R13=%3 
R14=%4 
R15=%5 


SLR= 
PIRQ= 


UBREAK= 


TKS= 
TKB= 
TPS= 
TPB= 


erences rear SS ne sn 
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STARTING INSTRUCTIONS 


eaae” DEFINITIONS 


PC, TIMON 


TINCHK 


TIMER(RS) 


SETGO 
(RS) 


+SAVE REGISTERS ON THE STACK 


+RESTORE REGISTERS FROM THE STACK 


+GET USER INPUT 


+REWIND SLAVE 
+BRANCH IF ERROR ON REWIND 


+ TURN TIMER ON 


*GO TO TIMER & RETURN ViRR RZ 


+SET ‘GO’ BIT 


REGISTER ASSIGNMENTS 


>; REGISTER ADDRESSES 
PSW= 177776 


177774 
177772 
177770 
177560 
177562 
177564 
177566 


;; VECTOR ADDRESSES 
ERRVEC=4 


RESVEC=10 


. SBTTL 
>; DEFINITIONS AND REGISTER ASSIGNMENTS 
>; GENERAL REG:STER ASSIGNMENTS 


>;PROCESSER STATUS WORD 

>; STACK LIMIT REGISTER (11740. 11745) 
;;PROGRAM INTERRUPT REQ. (11745) 

7; MICRO-BREAK REGISTER (11745) 

> KEYBOARD CSR 

>; KEYBOARD DATA BUFFER REGISTER 

>; TELEPRINTER CSR 

>; TELEPRINTER DATA BUFFER REGISTER 


;; ADDRESS OF ERROR VECTOR 
;;ADDRESS OF RESERVED INST. TRAP VECTOP 


———— 6 me 


SEQ 0031 
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1166 
116? 
1168 
1169 
1170 
1171 


000014 
000014 
000014 
000020 
000024 
000030 
000034 
O0C0060 
090064 
000114 
000240 
000244 
000250 


172540 
000104 
177546 
000100 
177514 
177516 


172440 


000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000022 
000024 
000026 
000030 
000032 


000091 


000070 
000076 


TBITVEC=14 
TRIVEC=S14 
BPTVEC=14 
\OTVEC=20 
PFVEC=24 
EMTVEC=30 
TRAP VEC=34 
TKVEC= 60 
TPVEC=64 
PARVEC= 114 
PIRVEC=240 
FPEVEC=244 
MMNVEC=250 


*CLOCK ADDRESS AND VECTORS 
PLKC 72540 


-PLKVEC= 104 


LKS= 177546 
LKVEC= 100 

LPS= 177514 
LPB= 177516 


*RH11. THOZ/TE16 REGISTERS 


TMCS1= 172440 


> TMO2/TE16 INDEX VALUES 
cs 00 


WC= 02 
BA= 04 
FC= 06 
C$2= 10 
0S= 12 
ER= 14 
AS= 16 
DB= 22 
MR= 24 
DT= 26 
SN= 30 
Ws 32 


G 
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REGISTER ASSIGNMENTS 


++ADDRESS OF ‘T' BIT TRAP VECTOR 

+; ADDRESS OF ‘TRACE’ TRAP VECTOR 

‘BREAKPOINT’ TRAP VECTOR 
OT TRAP VECTOR 

F POWE Abd TRAP VECTOR 





3 OR 
;;RDDRESS OF TTY KEYBOARD INT. VECTOR 

; ;RDDRESS OF TTY PRINTER INTERRUPT VECTOR 
;;ADDRESS OF MA/HF PARITY ERROR VECTOR 
;;ADDRESS OF PIRQ VECTOR 

;;ADDRESS OF FLOATING POINT INT. VECTOR 
;;ADDRESS OF MEM MGMT ERROR TRAP VECTOR 


>KW1i-P 
+KWL1-L 
>LP11 


*CONTROL STATUS #1 


>BUS ADDRESS REGISTER 
> FRAME COUNT 

>;CONTROL STATUS #2 

> DRIVE STATUS 

>ERROR REG #1 

; ATTENTION SUMMARY 
;DATA BUFFER REG 
;MAINTENANCE REG 
;DRIVE TYPE REG 
;SERIAL NUMBER REGISTER 
. TAPE CONTROL REG 


SBTTL TMOZ/TE16 REGISTER BITS 


RHCS1-CS1(RS) 


O= 1 
NOP = 0 
RWDOFF= 2 
RWO= 6 
DRYCLR= 10 
WF MK = 26 
ERASE= 24 
SPCFWD= 30 
SPCREV= 32 
WCHKF= 50 
WCHKR= 56 
WFWD=- 60 
RDFWD= 70 
RDREWV= 76 


SEQ 0032 





eee 
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000100 
000200 
000400 
001000 
002000 
004000 
020000 
040000 
100000 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000020 
COO0040 
000100 
000200 
900400 
001000 
002000 
004000 
010000 
020000 
046000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
002000 
004090 
010000 
020000 
040000 
100000 


000001 
000002 
000004 
000020 
006100 
000200 
000400 


_-_——_ 


TMOZ/TE16 REGISTER BITS 


\E= 
RDY= 
Ai6= 
Ai7= 
PSEL= 
DVA= 
MCPE= 
TRE= 


SC= 
>RHCS2-CS2(R5) 
DvOo= 


OVi= 
DV2= 
OV3= 
DV4= 
DvS= 
DV6= 
DV7= 
BAI= 
PAT= 
CLR= 
IR= 
OR= 
MDPE= 
MXF = 
PGE=- 
NEM= 
NED= 
UPE= 
WCE= 


DLT= 
>RHDOS-DS(R5) 
SLA= 
BO0T= - 
TMK= 
10B= 
SDOWN= 
PES= 
$SC= 
DRY= 
DPR= 
EQT= 
WRL= 
MOL= 
PiP= 
ERR= 
ATA= 
> RHER-ER(RS) 


ee ee ee} 


—-- = - —_ 


SEQ 0033 


—_— —— re ee ee ee 
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1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
128? 
1288 


001000 
062000 
004000 
010000 
020000 
040000 


000100 


002000 
01C000 
040000 


000300 
000320 
000000 
000400 
C01000 
002900 
100000 


104400 
104000 
000004 


005730 
177400 
177600 


000003 
000011 
000012 
600015 
000017 
000025 


. 2 
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TMOZ/TE16 REGISTER BITS 


FCE= 
CSITM= 
NEF = 
OTE= 
OP I= 
UNS= 


> RHMR-MRCRS) 
OSC= 


»RHDT-DTC(RS? 
SPR= 
CH7= 
TAP= 


>RHTC-TCC(RS) 
NORM11= 
COM11i= 


BPi200= 0 


BP 1556= 
BP 1 800= 
PE1600= 
ACCL= 


100000 


> INSTRUCTION EQUATES 


HL T= 
SCOPE= 
TYPE= 


TRAP 
ENT 
10T 


>;MISCELLANEOUS EQUATES 
OUTBUF=INIT 


FRNCNT= 

WRDOCNT= 
>ASCII EQUATES 

CNTRLC= 

HT= 

LF= 

CR= 

CNTRLO= 

CNTRLU= 


- 256. 
-128. 


3 
i 
i 
1 
i 
z 


UN “VU he 


;OTPUT BUFFER START AT BEG OF PROGRAN 
;FRAME COUNT 
>WORD COUNT 


11 CODE FOR CONTROL C ¢ C) 
11 CODE FOR HORIZONTAL TAB 
-ASCI I CODE FOR LINE FEED 
; i 
Vi 
if 


;ASCII CODE FOR CARRIAGE RETURN 
-ASCI! CODE FOR CONTROL O ¢ 0) 
-ASCIi! CODE FOR CONTROL U ( U) 


a -_—s- 


SEQ 0034 


ee ee eS es . 
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000014 


000036 


000060 
000062 


00017e 


000200 
000204 


001000 


001002 
001004 


001006 
001010 
001011 
001012 
001014 


000014 
000016 


003612 
000340 


000176 
000000 
C00200 


005067 
000137 


000500 
000600 


001000 
177570 


000000 
000000 


001136 


000600 
005730 


TMOZ/TE16 REGISTER BIT 
+SETUP TRAP VECTORS 
VEC 


. =500 
STKPTR= 600 


;PROGRAM TAGS 


SWR: 


ATIMTBL: | 


GAPTBL: . 
DELTIM: . 
OCTALO: . 
GAP: 


1 TCNT: 


TSTNUNM: 


ERFLG: 


PRGFLG: . 
UNTFND: . 
TYPFLG: . 
NRZFLG: . 


ASF LG: 


J 3 
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—— ee ee ee 


SEQ 0035 


=TBIT 
WORD . #2 ;SET ‘'T’' TRAP TO TIMER ROUTINE 
.WORD HALT +PRIORITY LEVEL 7 
WORD  .. TYPE ;SET 10T TRAP TO . TYPE ROUTINE 
.WORD OQ sPRIOTITY LEVEL O 
.WORD PFVEC+4+2 ;POWER FAIL TRAP TO HALT 
.WORD HALT ;AT PFVEC42 
. WORD SCOPE ;SET EMT TRAP TO . SCOPE ROUTINE 
-WORD 340 ;PRIORITY LEVEL 7 
.WORD  .HLT ;SET TRAP TRAP TO _HLT ROUTINE 
-WORD 340 ;PRIORITY LEVEL 7 
=TKVEC 
.WORD = TKISR 
-WORD 340 
— SWITCH REGISTER LOC. 176 
SWREG: 0 ;SOFTWARE SWITCH REGISTER 
. =200 
CLR PCNTR ; INIT PROGRAM PASS INDICATOR 
JMP ae INIT ;GO TO START OF PROGRAM 
; STACK 
=1000 
177570 ;SWITCH REGISTER 
.WORD 90 ;PASS INDICATOR 
-WORD 9 >PRSS COUNT INDICATOR 
.WORD OQ 
. BYTE 0 >TMOZ DRIVE UNDER TEST 
. BYTE 0 > TE16 SLAVE UNDER TEST 
.WORD OG ;POINTER TO SLAVE TABLE (SLVTBL) BELOW 
.WORD # £THMCS!1 >BASE ADDRESS OF TNOZ/TE16 REGISTERS 
.WORD OQ >; CONTAINS ‘TICK’ COUNT 
BLKW 16. >;EACH ENTRY CONTAINS TIME FOR FUNCTION 
7ENTRIES ARE MADE BY ‘SCOPE’ ROUTINE 
BLKW 16. > TIMES RECORDED BY ‘GAP CONSISTANCY* TEST 
WORD O ;VARIBLE DELAY 
WORD O 
. BYTE 0 ; CONTAINS GAP # (USED FOR TST O21) 
BYTE 0 > ITERATION COUNT 
BYTE 0 > TEST & 
BYTE 0 > ERROR FLAG 
BYTE 0 >PROGRAN FLAG 
BYTE 0 ;UNIT FOUND INDICATOR 
BYTE 0 
BYTE 0 ; INDICATES IF ORIVE tS NR2 ONLY. 
BYTE 0 (170 = YES/NQ, 
EVEN 


———— <a cee es 


as 
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CZ2TUGC. P11 


1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 


001136 
001140 
001142 
001144 
001146 
001150 
001156 


001160 
001170 
001270 
001400 
001403 
001405 
001407 
001411 
001413 
601414 
O0141e 


030460 


001422 


TMOZ/TE16 REGISTER BITS 


DIGTAB: 


es. 


ORVTBL: . 


SPACE: 


ANGTAB: . 


<CRD<LF) 
me he 
<7?) 


SEQ 0036 





+RESERVE SPACE FOR CONVERTED DIGITS 
+ TERMINATOR 


+A 07-1 = DRIVE NOT TO BE/TO BE TESTED 
+A 07-1 = SLAVE NOT TO GE/TO BE TESTED 
+ TELETYPE INPUT BUFFER 

+MISCELLANEOUS ASCII CHARACTERS 


CZTUGC. P 


emacs ee 


DZTUG-B TNOZ/TE16 ORIVE FUNCTION TIMER 
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001422 


001566 
001572 


000000 


023564 
024404 
004 336 
004 336 


000000 
035230 
001546 
001522 
001452 
006344 
000404 
000651 
001452 
000404 
000512 
001452 
002056 
002056 
001666 
061522 
002532 
002330 
000000 
004406 
004374 
004374 
004552 
023254 
024074 
004172 
004172 


MACY11 3 


TIME SPE 


*MICROCESON 
*+MICROSECONDS 
+ FORMAT 


. 
, 


STIMTBL: 


O( 
Cl 


(1046) 
F | 


L 
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CRTION TABLE 


.SBTTL TIME SPECIFICATION TABLE 
; THE BELOW TABLE CONTAINS THE SPECIFIED FUNCTION TIMES IN TENS OF 
NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 


DS. 


'S 
. WORD 


. WORD 


(BY APPENDING A QO). 


MAX, MIN 


02270. 
02270. 


;NOTE: TEST 31 AND 32 


01370. 


, 02170. 


;TIME IN MS 


w= 

iw ~J ——_ - 
Nw’ fn” - uw 
mietinm:i © 
tmnt tant 
- * wot’ Ww 

" @w 

a 

mn Oo 


© 


Ow Sone yy 


oe SPP}. 


s te Qe We Me We Be Be Bs Be Be Ve We We Bea Be Be 


:22. 2-21. 7 


FUNCTION 


WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE STLDOWN 
READ FROM BOT 
READ START 
READ SHUTDOWN 
READ SETTLEDOWN 
RD REV START 








TEST & 


TSTOO1 
T 








GAP SIZE INTER 
GAP CONS!ISANCY 
DUMMY 

DAT TIME ZOOBPI 
DAT TIME 5S566P | 
DAT TIME SOOBP I 
DAT TIME 1600PE 
ERASE 

WRT FILE MARK 
READ 1" TAPE 

RD REV 1" TAPE 


REQUIRE PRERECORDEO SO0BP! SKEW TAPE. 


TSTO3Z 


SEQ 0037 
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1430 
1421 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 





001666 
001672 


002602 


002412 
002506 
002532 
002532 
002424 
002260 
002260 
002260 
002260 
002260 
002260 
002260 
002260 
002260 
002260 
002260 


n 3 
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GAP TIME SPECIFICATION TABLE 


;NOTE: GAP #'S ARE IN OCTAL. 
MAX, MIN(10) 


, 


GTIMTBL: . 


. WORD 


— 


01410. 


-, 01200. 


.SBTTL GAP TIME SPECIFICATION TABLE 
*TH!S TABLE CONTRINS THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
;OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TST021). 


+TIME IN MS(10) GAP # 


Se Be We Be We Ss Be Be Be Be Be Be Be Be Be Be 
eee ee eR ee me ee OR OB ee 
WWWWWWW SSMS 


VWRmnoocon= 
NNO RPPRPAPRPPANHPARWUUAWND 


Ooooooooooo0o VNnuws 


GAP-0 
GAP ~- 1 


NQMfwWwnN OO 


DELAY IN MS(10) 


OMS 
1.0 MS 


Tunes ee 

—_ . . 7 . . 7. . . 

. . tt . . Oooo0o0no0noe 
pa oe ee ee ee ee ee 

ZIZIZJZFIZOAAMAMNM 

UMWMwMWwWM 


aera 29 OC OC 


SEQ 0038 


N $3 

DOZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 3001046) O2-DEC-77 09:48 PAGE 39 SEQ 0039 
CZ2TUGC. P11 O2-DEC-77 09: 46 TEST HEACER POINTERS 

1453 .SBTTL TEST HEADER POINTERS 

1454 Bi BELOW TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 

1455 001676 000000 PTR: .WORD O 

1456 001700 015405 .WORD A. T001 

145? 001702 015427 .WORD A. TO02 

1458 001704 015447 .WORD A. TOOS 

1459 001706 015471 .WORD A. TOO4 

1460 001710 015515 .WORD A. TO0S 

1461 001712 015537 .WORD A. TO06 

1462 001714 015556 .WORD A. TO007 

1463 001716 015600 .WORD A. TO010 

1464 001720 015623 .WORD A. TO11 

1465 001722 015645 .WORD A. T1012 

1466 001724 015672 .WORD A. TO13 

1467 001726 015721 .WORD A. TO14 

1468 001730 015752 .WORD A. TO15 

1469 001732 016003 .WORD A. TO16 

1470 001734 016031 .WORD A. TOi7 

1471 001736 016060 .WORD A. 1020 

1472 001740 016110 .WORD A. 1021 

1473 001742 co0000 .WORD OQ ;DUMMY TEST 

1474 Q001744 016133 .WORD A. T023 

1475 001746 016157 .WORD A. T024 

1476 001750 016203 .WORD &. T1025 

1477 001752 016227 .WORD A. 7026 

1478 001754 016254 .WORD A. 1027 

1479 001756 016276 .WORD A. TO3O 

1480 001760 016321 .WORD A. TOSI 

1481 001762 016343 .WORD A. T032 


DZTUG-B TMOZ2/TE16 ORIVE FUNCTION TIMER 
CZTUGC. P11 46 


1482 
1483 











001764 
001766 
001770 
001772 


001774 
002002 
002004 
002012 
002020 
002026 
002030 


002244 


000000 
000000 
Oc0000 
000000 


022767 


005067 
012767 
004767 
042767 
122767 


000207 


02-DEC-77 O9: 


000176 


175552 
177600 
000007 


016365 
016372 
176734 
000564 
016401 


177706 
000007 
000154 
177600 
000025 
600015 
000200 
000230 
000007 
000060 
000067 


016411 





177540 





177526 


176776 
177752 


177744 
177736 


177702 
177664 
177656 
177644 
1¢°7642 
177626 


177610 
177600 


177546 
177542 


176536 


MACY11 30(1046) 


CKSWR: 


CNTLU: 


5S: 
6$: 


7%: 
OUT: 


B 4 
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TEST HEADER POINTERS 


fae ag REGISTER ROUTINE. CHECKS FOR G TO ALLOW CHANGING 
*CALL IS BY 44 OF JSR PC. CKSWR 


+LOCATIONS US 

T IB: WORD 

TEMPST: .WORD 0 

COUNT: .WORD 

ROSH: .WORD 0 

CMP #SWREG, SWR 

BNE OUT 

MOV TKB, TIB 

Bic #177600, TIB 

CMP #7,TIB 

BNE OUT 

TYPE.L. CNTG 
TYPE. L. SHR 

MOV OSWR, RZ 
JSR PC, TYPOCT 
TYPE.L. NEW 

CLR TEMPST 
MOV #7. COUNT 
JSR PC, TTIN 
BIC #177600, TIB 
CMPB #25, TIB 
NE 2$ 

BR CNTLU 

CMPB #15, TIB 
BNE 4§ 

MOV #200. ROSW 
JSR PC, TCRLF 
CMP #7, COUNT 
BNE 7$ 

BR OUT 

CMPB #60. TIB 
BGT 5$ 

CMPB #67.TIB 
BGE 6$ 

TYPE,L. QUEST 

BR 3$ 

ASL TEMPST 
ASL TEMPST 
ASL TEMPST 
BICB #60. TIB 
BISB TIB, TEMPST 
DEC COUNT 

BEQ 5% 

BR 1$ 

MOV TEMPST, OSWR 
BR 8$ 

RTS PC 


;SOFTWARE SWITCH REG PRESENT 
;NO, GET OUT 

;AND STRIP OFF 
+ THE GARBAGE 

,;IS IT A «< G 


+GO READ A CHARACTER 
*STRIP OFF GARBAGE 
-IS ITA UW? 

*BRANCH IF NOT 

+STORT OVER 

-1S 1T A <CR>d? 
*BRANCH IF NOT 


sECHO IT WITH <LF> 
*WAS IT FIRST CHARACTER 


; CHANGE SWR IF NOT FIRST ONE 
;GET OUT 


>START OVER IF NOT LEGAL CHARACTER 


*GET NITTY-GRITTY 


>ONLY WANT 6 ~ DIGITS 


>CHANGE SWITCH REGISTER CONTENTS 


SEQ 0040 


C2T 


UGC. P 


002246 
002252 
002256 
002262 
002266 
002272 
002274 
002302 
002306 
002310 
002316 


002320 
002321 
002322 


002331 
002332 


002336 


Ee 


02-DEC-77 


005067 
005067 
005067 
005267 
105767 
100375 
016767 
105767 
100375 
116767 
000207 


000011 


005015 
002336 


010046 
017600 
062766 
105067 


105767 
001410 
000004 





122716 
001445 


175306 
175304 
177502 
175272 
175266 


175262 
175256 


177450 


000 


000002 
000002 
177753 
177747 


002332 
177376 


177370 


000011 





177462 


175250 


000002 


OZTUG-B a DRIVE «Nee TIMER MACY11 30(1046) 
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TEST HEADER POINTERS 


TTIN: 


TTINI: 


TTIN2: 


*TTY READ SUBROUTINE XKKSK4KKK% 


CLR TKS 
CLR TKB 
CLR TIB 

INC TKS 
TSTB TKS 
BPL TTINI 
MoV TKB, TIB 
TSTB TPS 

PL TTINZ 
MOVB TIB, TPB 
RTS PC 

. SBTTL 


PROGRAM SUBROUTINES 
TYPE SUBROUTINE. 


. SBTTL 
;;ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
+; THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


>,CALL: TYPE ;7AR TRAP TYPE INSTRUCTION 
He MESADR +2MESADR IS FIRST ADDRESS OF ASCIZ STRING 
>, TAGS USED BY THE TYPE ROUTINE BELOW 

HT=11 +>HORIZONTAL TAB 
SNULL: BYTE 0 ++ CONTAINS NULL CHARACTER 
SFILL: . BYTE 2 ;+CONTAINS # OF FILLER CHARACTERS 
STPFLG: .BYTE OQ >; CONTAINS TELEPRINTER AVAILABLE FLAG 

;;0/377 = AVAIL/NOT AVAIL 
STKFLG: .BYTE 0 >; CONTRINS KEYBOARD AVAILABLE FLAG 
STPS: .WORD 177564 ;;ADDRESS OF TLEPRINTER STATUS REG!STER 
STPB: . WORD 177566 ;;ADDRESS OF TELEPRINTER DATA BUFFER 
SCHARCNT:. BYTE 0 >; CONTAINS # OF CHARS TYPED 
SCNTRLO:. BYTE OQ >; CONTAINS CONTROL O CHAR CIF TYPED) 
SCRLF: ASCIZ <15><12> 
VEN 

_ TYPE: MoV RO, -(SP) >, SAVE RO 

MoV @2(SP).RO ;;GET MESSAGE ADDRESS 

ADD #2, 2(SP) ;; ADJUST RETURN PC 

CLRB SCNTRLO 
TYPE1: TSTB SCNTRLO ;>;BRANCH IF CONTROL Q¢( 0) WASN'T TYPED 

BEG TYPEZ 
TCRLF: TYPE. SCRLF ;; TYPE <CR><LF> 

TSTB ROSW 

BPL TYPES 

CLR ROSW 

RTS PC 
TYPEZ: MOVB (RO)+,-(SP) ;>;PUSH CHARACTER TO BE TYPED ONTO STACK 

BNE TYPE4 ;;BRANCH IF NOT THE TERMINATOR 

TST (SP )+ ;;POP TERMINATOR CHAR OFF THE STACK 
TYPE3: MOV (SP)+,RO >,RESTORE RO 

RTI ;;RETURN TO CALLER 
TYPE4: CMPB #SHT, (SP) ;; BRANCH IF HORIZONTAL TAB <HT> 

BEQ 95 


SEQ 0041 


| 
eee ee ee em + 


C2T 


UGC. P 


002424 
002430 
0024 34 
0024 36 


002442 
002446 
602450 
002454 


002456 
002462 
002464 
002472 
002474 
002502 
002510 
002512 
002516 
002520 
002526 
002530 
002534 


002536 
002542 
002546 
002554 
002556 
002560 


002562 
002564 
002566 
002570 
002572 
002574 
002576 
002602 





004767 
122726 
001350 
016746 


105366 
002770 
004767 
000772 


105777 
100375 
122737 
001403 
116677 
122766 
001003 
105067 
000406 
122766 
002002 
105267 
000207 


112716 
004767 
132767 
001372 
105726 
000676 


010546 
010446 
010346 
010246 
019146 
010046 
016646 
000297 


012666 
012600 
012601 
012602 
012603 
012604 
012605 
006207 


090026 
000012 


177656 


000001 
000002 


177642 
000017 


000002 
000015 


177612 
000012 
177574 


H00040 
177710 
000007 


000014 


CO0014 


DZTUG-B TMOZ2/TE16 ORIVE FUNCTION TIMER 
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002331 


177624 
000002 


000002 


177554 


MACY11 30(1046) 
TYPE SUBROUTINE 


33: 


4S: 


55: 


6$: 


7%: 


8$: 


;; HOR | ZONTAL 
99 R 


105: 


) 
02-DEC-77 


PC,5$ 

#12, (SP)+ 
TYPE1 
SNULL. - (SP) 
1(SP) 
3$ 
PC, 5% 
4G 


asTPs 
#17, QSCNTRLO 


6 

Z2(SP), dSTPB 
#15, 2(SP) 
7$ 


SCHARCNT 

8S 

#12. 2¢SP) 
8% 

SCHARCNT 

PC 

TAB <HT> PROCESSER 
#40, (SP) 
PC,5S$ 

#7, SCHARCNT 
10% 


(SP )+ 
TYPE1 


LL EE ee ee 


y 
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++ TYPE CHARACTER 

++ CHECK IF CHARACTER WAS A LINE FEED 
++BRANCH IF NOT LINE FEED 

:3GET —_——* REQUIRED AND FILLER 


4 


;;DECREMENT FILLERS REQ COUNT 
;;BRANCH IF NO MORE FILLERS ARE REQUIRED 
+, TYPE FILLER CHARACTER 


+;WAIT FOR OUTPUT DEVICE 


;; CHECK IF CONTROL O WAS TYPED 

;,STOP TYPING MESSAGE IF O WAS TYPED 
;,OUTPUT CHARACTER 

,>;BRANCH IF NOT <CR> 


++CLEAR CHARACTERS TYPED COUNT 
+;BRANCH IF <LF> OR ‘NULL’ 
+; INCREMENT CHARACTER TYPED COUNT 


;;LOAD ‘SPACE’ 

++ TYPE ‘SPACE’ 

>: TYPE SPACES UNTIL A MULTIPLE 
;,O0F 8 CHARACTERS HAVE BEEN TYPED 
>;POP SPACE 

;;GET NEXT CHARACTER 


tage SAVE GENERAL REGISTERS ON THE STACK 


> CALL: 
. SAVE: 


MOV 
MOV 
MOV 
MoV 
MOV 
MoV 
MOV 
RTS 


RS, - (SP) 
R4, -(SP) 
R3,-(SP) 
RZ, - (SP) 
R1, -(SP) 
RO, -(SP) 
PC 


+SAVE REGISTERS ON THE STACK 


+GET RETURN PC 
TURN 


. 
’ 


> SUBROUTINE TO RESTORE GENERAL REGISTERS FROM THE STACK 
RESTORE 


> CALL: 
_ RESTORE: MOV 
M 


(SP)+, 14 (SP) 
(SP)+,R0 
(SP)+,R1 
(SP)4+,R2 
(SP)+,R3 
(SP)+,R4 
(SP)+,R5 


PC 


*>MOVE RETURN PC 
>RESTORE REGISTERS 


>RETURN 


; SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 


SEQ 0042 


| 
ee ED 


OZTUG-8 THOZ/TE16 DRIVE 
O2-DEC-77 O09: 46 


CZTUG® P11 


1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 


002626 
002632 


002634 
002640 
002640 
002644 
002650 
002652 
002654 
002656 
002660 
002664 


002666 


002726 


002732 


0027 34 
002740 


110667 
000402 


105037 


004767 
012704 
005003 
010201 
006302 
006103 
012700 
COO404 


006302 


004767 
000207 


110637 
000402 


105037 


FUNCTION TIMER 


176300 


001132 


177716 
001150 


000C06 


000003 
001136 


001132 
001150 
177652 


001132 


001132 
177610 
001150 


MACY11 30(1046) 
TYPE SUBROUTINE 


NUMBER, R2 
PC, CNVOCT 


> CALL: 


. 
, 


CNVOCT. 


, 


, 


TYPOCT: 


CNVTO: 


18: 


3%: 


4S: 


MOV 


JSR 


MOVB 
BR 


JSR 


. ¥ 
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SP, TYPFLG 
CNVTO 


rr ee ee ee 


SEQ 0043 


+MOVE NUMBER TO RZ 


+SET 00 NOT TYPE FLAG 


OCTAL TO ASCII! & TYPE ROUTINE 


NUMBER, RZ 
PC, TYPOCT 


ae TYPFLG 


PC,. SAVE 
on 


»R1 
DIGTABCRS). (R4)+ 
R3 
RO 
2$ 
hea 


B 4 
TYPE. ODIGITS 


JSR 
RTS 


PC,. RESTORE 
PC 


. SBTTL 
; SUBROUTINE TO CONVERT OCTAL NUMBER TO ASCII AND TYPE IT OUT 
ALL: MOV +PUT # IN RZ 


+CALL ROUTINE 
+SET TYPE FLAG 


,;SAVE REGISTERS ON THE STACK 
;SET PTR TO OUTPUT 

;R3 WILL CONTAIN OCTAL DIGIT 
;GET # TO BE TYPED 

;SHIFT & 


*SET DIGIT COUNTER 


+SHIFT # 3 PLACES LEFT 


*SET SHIFT COUNTER 
;MOVE ASCII EQUIV TO OUTPUT 


>DECREMENT DIGIT COUNT 
>GET NEXT DIGIT 
>BRANCH IF ASCII IS 
-NOT TO BE TYPED 


*RESTORE REGISTERS FROM THE STACK 


; SUBROUTINE TO CONVERT OCTAL DATA TO DECIMAL ASCII 


, CALL: 


7 


CNVDEC: 


> CALL: 


, 


TYPDEC: 


CNYTD: 


MoV 
JSR 


MOVB 


. SBTTL 


MOV 


NUMBER. RZ 
PC, CNVDEC 


SP, d# TYPFLG 
CNVTD 


>MOVE NUMBER TO R2 


;SET DO NOT TYPE FLAG 


OCTAL TO DEC IMAL & TYPE ROUTINE 
; THIS ROUTINE CONVERTS AN OCTAL # TO DECIMAL ASCII AND TYPES IT OUT 


NUMBER, RZ 
PC, TYPDEC 


ae TYPFLG 
PC,. SAVE 

RO 
RODIGITS, R4 
R3 


+PUT & IN R2 
> CALL ROUTINE 


>SET TYPE FLAG 


>SAVE REGISTERS ON THE STACK 

>RO 1S INDEX TO DECIMAL CONSTANT 
>SET OUTPUT PTR 

*R3 CONTAINS DECIMAL DIGIT 


—eecee wee 


A tC: ttt te. tt 


SEQ 0044 | 





:. = 
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OZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER 
Pil “6 CTAL TO DECIMAL & TYPE ROUTINE 


CZTUGC. O2-DEC-77 O09: 


1704 002762 166002 003042 2$: SUB DCONST(RO), RZ +SUBTRACT DECIMAL CONSTANT UNTIL 
1705 002766 103402 BLO 3$ + INPUT # GOES NEGATIVE 
1706 002770 005203 INC R3 */KEEPING TRACK OF SUBTRACTIONS 
170? Q02772 000773 BR 2$ 
1708 002774 066002 003042 3: ADD DCONST(RO). RZ +ADD BACK CONSTANT WHEN NEGATIVE 
1709 OO3000 116324 001136 MOVB DIGTAB(RS), (R4Y)+ +MOVE ASCII EQUIVILENT 
1710 003004 062700 000002 ROD #2,R0 +NEXT CONSTANT 
1711 003010 005760 003042 TST DCONST (RO) ;UNTIL ALL CONSTANTS DONE 
1712 003014 001361 BNE 1% 
1713 QO3016 112724 Q00060 MOVB #'O. (R4Y)+ +LAST DIGIT IS O 
1714 Q03022 105737 001132 TSTB8 OR TYPFLG +BRANCH IF ASCII IS 
1715 003026 001002 BNE 4§ +NOT TO BE TYPED 
1716 QO03030 O0C004% 001150 TYPE. ODIGITS 
1717 Q03034 4S: 
1718 QO3034 O04767 177544 JSR PC,. RESTORE +RESTORE REGISTERS FROM THE STACK 
pal 003040 000207 RTS PC 
1 
1721 QO3042 023420 DCONSI: .WORD 10000 
1722 OO0O3044 001750 .WORD 1000. 
1723 O0304%6 000144 .WORD 100. 
1724 003050 C00012 ~.WORD = 10. 
1725 003052 000901 .WORD = 1. 
Hf 003054 g0o0000 .WORD OQ + TERMINATOR 
1 
1728 . SBTTL TYPE SPECIFIED TIMES ROUTINE 
1729 ; THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
1730 ;AND ALSO THE ACTUAL TIME RECORDED (ATIME) 
1731 ; FORMAT OF LINE TYPED 
1732 > RANGE = <RARARA-BBBBBB> ACTUAL=CCCCCC 
1733 ; WHERE: RARRAR IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
1734 , BBBBBB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX4+2) ). 
1735 ; CCCCCC 1S ACTUAL TIME RECORDED BY TEST (ATIME). 
1736 *CALL: MOVB TEST NUMBER.RZ -;LOAD TEST NUMBER 
1737 ; MoV RTIME. ORATIME ;MOVE TIME TO ATIME 
1738 ; JSR PC, OUTSPC 
1739 003056 010246 OUTSPC: MOV RZ, -(SP) -SAVE RZ & R3 ON THE STACK 
1740 003060 010346 MOV R3,- (SP) 
1741 003062 006302 ASL R2 ;MULTIPLY TEST # TIMES 4 
i742 003064 006302 ASL RZ -TO FORM INDEX INTO STIMTBL 
1743 003066 010203 MOV RZ,R3 -R3 CONTAINS INDEX INTO TABLE 
015365 TYPE, L. RNG 
001422 MOV STIMTBL(R3),R2 *GET MAXIMUM SPEC TIME 
177636 JSR PC, TYPDEC >CONVERT TO DECIMAL & TYPE 
001411 TYPE, DASH 
001424 MOV STIMTBL4#2(R3),RZ >GET MINIMUM TIME 
177622 JSR PC, TYPDEC >CONVERT TO DECIMAL & TYPE 
GO1416 TYPE, ANGTAB 
015375 TYPE, L. ACT 
001016 Mov OFATINE, RZ >GET ACTUAL TIME 
177602 JSR PC, TYPDEC >CONVERT TQ DECIMAL & TYPE 
001400 TYPE, CRLF 
MoV (SP)+,R3 
MOV (SP)+,R2 
RTS PC *>RETURN 





. SBTYL 


TYPE GAP TIMES SUBROUTINE 





carnmcrnccccccm cc nncnnnnmmmrncncrnr nner ereeceeeeeeeeeee eee a pt tne 
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C2TUGC. 


1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 








003152 
003154 


010246 


000207 


004767 


175742 


015365 
001576 
177540 
001411 
001600 
177524 
001416 
015375 
001016 
177504 
015054 
001124 
177362 
001400 


177272 
001270 
001122 
000002 
000015 
177770 
000003 


900002 


177234 


MACY11 36(1046) 


*THIS SUBROUTINE 

+ T$T021). 

*RANGE VIA THE HLT ROUTINE (HLT+2). 
ALL: MOVB 


, 


, 
, 


OUTGAP: 


CNVTAO: 


1S. 


3$. 


G 4 
O2-DEC-77 09:48 PAGE 45 
TYPE GRP TIMES SUBROUTINE 


1S USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 


IT 1S CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 


#GAP, GAP 
MOV RTIME. ATIME 
JSR PC, OUTGRP 


MOV R3,-(SP) 
MOVB i 


_ RNG 
MoV GTIMTBL(R3),RZ 
JSR PC, TYPDEC 


H 
MOV GTIMTBL4+2(R3),R2Z 
JSR PC, TYPDEC 
TYPE, ANGTAB 
TYPE,.L. ACT 
MOV OFATIMNE, RZ 
JSR PC, TYPDEC 
TYPE. €. GAP 
MOVB OEGAP, RZ 
JSR PC, TYPOCT 


TYPE. CRLF 

Mov (SP)+,R3 
MoV (SP)+,R2 
RTS PC 


;LOAD GAP # INTO GAP 

;LOAD ACTUAL TIME INTO ATIME 
;SAVE RZ AND R3 

;GET GAP &# 


;GET MAX TIME 
; CONVERT TO DECIMAL & TYPE 


;GET MIN TIME 
; CONVERT TO DECIMAL & TYPE 
sive < 


*GET ACTUAL TIME 
+CONVERT TO DECIMAL & TYPE 


;GET GAP & 
+ TYPE GAP & 


*RESTORE RZ AND RZ 


. SBTTL ASCIi TO OCTAL CONVERT SUBROUTINE 
; SUBROUTINE TO CONVERT ASCI! DATA TO OCTAL. CONVERTED OCTAL DATA 
>1S LEFT IN OCTALO <15-00>. 


JSR PC,. SAVE 
Mov #INBUF. RO 
MOV FOC TALO. R1 


CLR (R1) 

CLR Z(R1) 
CMPB acR, (RO) 
BEQ 3$ 

MOVB (RO)+,R2 
BIC #177770.R2 
MOV #3. 

ASL (R1) 

ROL Z(R1) 
DEC R3 

BNE 2% 

BIS R2, (R1) 
BR 1% 


JSR PC,. RESTORE 
PC 


*SAVE REGISTERS ON THE STACK 
+SET PTR TO ASCII DATA 

*+GET ADDRESS OF OCTAL DATA 
>CLEAR OUT OLD OCTAL DATA 


><CR> TERMINATES INPUT 


;GET 'OCTAL’ DATA 
;STRIP UNUSED BITS 
;SET SHIFT COUNT 

> SHIFT LAST 

>OCTAL DIGIT 


;AND INSERT THIS DIGIT 

>GO GET NEXT DIGIT 

/RESTORE REGISTERS FROM THE STACK 
TURN 


, 


SBTTL PUBLISH SUBROUTINE 
- THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 


SEQ 0045 


LL LLL LL LL LLL LLL A 


ee we a 


H 4 cai 
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PUBLISH SUBROUTINE 


OZTUG-B TMOZ/TE16 OR'IVE 


FUNCTION TIMER 
C2TUGC. P11 O02-DEC-77 46 


09: 


ee oe - 


1816 *ERATION CIF 16. ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME’. 
181? +1T TYPES THE NAME OF THE FUNCT!ON THAT WAS TIMED, THE TIME SPEC- 

Me be > 1FICATION AND THE ACTUAL TIME . 

1820 003352 PUBL | SH: 

1821 003352 004767 177204 JSR PC,. SAVE +SAVE REGISTERS ON THE STACK 
1822 003356 012700 001020 MOV RATIMNTBL, RO +GET TABLE ADDRESS CONTAINING TIMES 
1823 003362 113701 001125 MOVB #1 TCNT, R1 +GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
1824 003366 122701 000001 CMPB #1. +BRANCH IF SINGLE ITERATION 
1825 Q03372 001423 BEQ 4§ 

1826 O00337% 005002 CLR RZ /CLEAR ‘SUM’ REGISTERS 

1827 003376 005003 CLR R3 

1828 O03400 122701 000020 CMPB #16. ,R1 +BRANCH IF 16. ITERATIONS 
1829 O03404 Q001402 BEQ 1% 

1830 00340@ dO00000 HAL T , ITERATION COUNT MUST BE 1 OR 16. 
1831 003410 000777 BR +DO0 NOT CHANGE POSIT OF SW11 
we ) ;WHEN TEST |S RUNNING. 

i 

1834 003412 062002 1$: ADD (RO)+,R2 +SUM INDIVIDUAL TIMES 

1835 003414 005503 ADC R3 

1836 003416 C05301 DEC R1 

aa 003420 001374 BNE 1$ 

1 

1839 003422 012700 900004 2$: MoV #4-RO 

1840 003426 006203 3$: ASR R3 *SHIFT TIME IN R3 & RZ 4 PLACES 
1841 003430 006002 ROR RZ -RIGHT = DIVIDE BY 16. 

1842 003432 005300 DEC RO 

1843 OC3434 001374 BNE 3$ 

1844 O03436 010237 001016 MOV RZ, d#AT INE +MOVE AVERAGED TIMES 

1845 

1846 003442 113700 001126 4S: MOVB a& TSTNUM, RO >GET TEST & 

1847 OO3446 006300 ASL RO 

1848 003450 016067 001676 900002 MoV NAMPTR(RO), 5% >GET TEST NAME STRING ADDRESS 
1849 003456 000004 TYPE | 
1850 003460 000000 5S: .WORD 0 

1851 OO3462 113702 001126 MOVB @eTSTNUM, RZ *GET TEST & 

1852 003466 004767 177364 JSR PC, OUTSPC >OUTPUT TIMES 

1853 O03472 004767 177106 JSR PC,. RESTORE >RESTORE REGISTERS FROM THE STACK 
1854 003476 000207 RTS PC 

13855 

1856 . SBTTL INPUT SUBROUTINE 

1857 SUBROUTINE TO GET TTY INPUT 

1858 *CALL: JSR PC,. INPUT 

1859 > INPUT DATA 1S RETUNED IN BUFFER BEGINNING AT INBUF. 

1860 

1861 003500 010046 _ INPUT: MOV RO. -(SP) ;SAVE RO ON THE STACK 

1862 003502 012700 601270 1$: MOV # INBUF, RO 

1863 003506 105737 177560 23: TSTB a8 TKS 

+ 003512 100375 BPL 2% 

1 

1866 OO3514 113746 177562 MOVB a8 TKB, - (SP) +GET CHARACTER 

1867 003520 042716 900200 Bic #200, (SP) 

1868 003524 122716 900177 CMPB #177, (SP) > CHECK RUBOUT 

1869 003530 001004 BNE 3% 

1870 003532 124026 CMPB ~(RO), (SP)+ *REMOVE CHARACTER FROM INPUT 

1871 003538 Q00004 001403 TYPE. BKSLSH 


OZTUG-B a ae OR IVE 
1 
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003540 


003610 


003612 
003616 
003622 
003626 
003630 
003634 


003636 
003642 
003644 
003646 
003652 


000762 
122716 
001004 
005726 
000004 
000751 
111637 
111620 
122726 
001403 
000004 
000742 
o0c004 
012600 
000207 


113746 
042716 
122716 
C01003 
112667 
000002 


122726 
001003 
000005 
00013? 
000002 


4g Maas TIMER 


09: 4 


000025 


001400 
001405 
000015 
001405 
001400 


177562 
000200 
00001? 


176475 


Hoooos 


005736 


33: 


4S: 


5S: 


>KEYBOARD INTERRUPT SERVICE ROUTINE 
TK ISR: 


. 2 
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INPUT SUBROUTINE 


WAIT FOR NEXT CHARACTER 


BR 2$ 
CMPB ee CHECK CONTROL U ( U) 


BNE 

TST (SP)+ 
TYPE, CRLF 

BR 


1% 
MOVB (SP), d#ECHO 
MOVB (SP), (RO)+ 
CMPB CR, (SP) + 
Q 5% 


BE 
TYPE, ECHO 
BR 2$ 


TYPE. CRLF 
MoV (SP)+,R0 
RTS PC 


;GET TYPED CHARACTER 
;STRIP PARITY BIT 
;BRANCH IF NOT CONTROL 90 ( 0) 


MOVB a& TKB, - (SP) 
BIC #200, (SP) 
CMPB RCNTRLO, (SP) 


CMPB #s- (SP )+ >BRANCH IF NOT CONTROL C ¢ C) 
BNE 2$ 

RESET 

JMP ae iNiT ;RESTART PROGRAM 

RT| >EXIT 


1$ 
MOVB (SP )+, SCNTRLO — O INDICATOR IN TYPE ROUTINE 
sEXI 


- ——_——— me 


OZTUG-B TMOZ/TE16 DRIVE 
Pii 77 


CZ2TUGC 


02-DEC- 


003654 dg00000 


003656 004767 





032777 
G01402 
000004 


FUNCTION TIMER 
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176112 
176674 
001127 
020000 
014655 
001126 
176716 
000016 
000002 


014740 
000002 


177202 
001400 


177074 
001400 


000014 
002000 


102100 
102300 


014631 


014665 
000007 
176564 
001413 


000032 
176544 
001400 
001000 


001407 


175100 


000032 


MACY11 30(1046) 


ERRTRP: 


J 4 
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ERROR SERVICE ROUTINES 


SEQ 0048 


. SBTTL ERROR SERVICE ROUTINES 
: ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 


sERROR SERVICE ROUTINE 
*THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 


>THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>, <HLT+Z2> AND, 


FOR A 


*>HAROWARE ERROR THE CALL IS <HLT>. 


_ HLT: 


10%: 


2%: 


203: 
21%: 


225: 


3$: 


174676 4S: 


JSR PC, CKSWR 
JSR PC,. SAVE 
MOVB SP, @#ERFLG 
BIT #SW13, ASWR 
BNE 4§ 

TYPE, E. HOR 

MOVE OF TSTNUM, RZ 
JSR PC, TYPOCT 
MoV 16(SP),RO 
SUB #2, RO 


BEQ 
TYPE. E. HORZ 


CMPB #Z,RO 

BNE 10% 

JSR PC, OUTGAP 
TYPE. CRLF 

BR 4§ 

JSR PC, OUTSPC 
TYPE, CRLF 

BR 4 

Mov ER(RS), RO 
BIT #PE 1600, TC(RS) 
BEQ 20% 

BIC #102100, RO 
BR 21% 

BIC #102300, RO 
TST RO 

BNE 22$ 
TYPE.E. SFT 

BR 6% 

TYPE.E. HOR1 

Mov R5,RO 

MoV #7. .R1 

MOV (RO)+,RZ 
JSR PC, TYPOCT 
TYPE, SPACEZ 

DEC Ri 

BNE 3$ 

MoV TC(RS),RZ 


JSR PC, TYPOCT 
TYPE, CRLF 


BiT #SWO9, dSWR 
BEQ 5$ 
TYPE. BELL 


;CHECK FOR CNTL G 

+ SAVE ake yc ae ON THE STACK 
+SET ERROR FLAG 

+BRANCH IF NO TYPOUT 


‘GET TEST & 


+NOW PC OF HLT CALL 
;NOW HLT CALL ITSELF 
+BRANCH IF HLT 
*BRANCH IF NOT HLT+2 


+ TYPE GAP SPECIFIED TIMES 


; TYPE SPECIFIED TIMES 


> TYPE SOFT ERROR MESSAGE 


>;GET FIRST ADDRESS OF REGS. 
‘TYPE FIRST 7 REGS. 

>GET REG CONTENTS 

;AND TYPE IT 


*GET CONTENTS OF TC REGISTER 


>BRANCH IF NO RING THE BELL 


ES LS EE TT 


C2T 


UGC. 


1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 


Pil 


004110 
904114 
004116 
004120 
004124 
004130 
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005777 
100001 
000000 
004767 
004767 
000002 


09: 


174664 5S: 


175650 6S: 


176454 


MACY11 30(1046) 
ERROR SERVICE ROUTINES 


O2-DEC-77 09:48 PAGE 49 


ASWR 
6$ 


PC,C 
PC,. 


KSWR 
RESTORE 


+HALT ON ERROR? 


+ CHECK FOR 


CNTL G 


fe i ony REGISTERS FROM THE STACK 


SEQ 0049 


DZTUG-B TMOZ2/TE16 DRIVE FUNCTION TIMER 
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1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 





Pil 


004132 


004767 


001311 
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175636 
001014 
000400 


001126 
176674 
040000 
000546 
000776 
001127 
174574 
000012 


OOS0G6 


001127 
001125 
001016 
001125 
004000 
000020 


001006 
002000 


177034 
001125 
174452 


174444 
177740 


001126 


174630 


174610 


001020 
174514 
901125 


174470 


MACY11 30(104%6) 


. SBTTL 
;SCOPE ROUTINE 
*THIS ROUTINE 
>THE SCOPE ROUT! 


, 
P 
¢ 
, 
é 
, 
, 
- 
¢ 
, 
, 


. SCOPE: 


10S: 


23: 


3$: 


4S: 


5%: 


; RETURNS: 


L 4 
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SCOPE SUBROUTINE 


SCOPE SUBROUTINE 
IS ENTERED UPON COMPLETION OF EACH SUBTEST 


NE: 

OUTPUTS TIME SPEC ON EACH ITERATION IF SWO8 IS SET 
REPEATS TEST IF SW14 IS SET 

STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 
PUBLISHES TIME IF SW10=0 


UPDATES ITERATION COUNT AND IF 
OTHERWISE REPEATS T 
DELAYS BEFORE CONTINUING OR REPEATING TEST. 
INITIALIZES DRIVE 


TO NEXT TEST, 


JSR 


aa COMPLETE CONTINUES 


RS=BASE ADDRESS OF TNOZ REGISTERS (ADDRESS OF CS1) 


Ri='DS' REG ADDRESS 
RO='FC' REG ADDRESS 


PC, CKSWR 
de TNBASE. RS 
#SWO8,aSHR 
10$ 

de TSTNUN, RZ 
PC, OUTSPC 
SSW14, aSWR 
28 


PC. DELAY 


#FC,RO 


OSERFLG 

3$ 

ai TCNT.RO 

RO 

OSATIMNE, ATIMTBL (RO? 
a# | TCNT 

#SW11, AdSWR 

4% 

#16. ,d81TCNT 


1$ 
(SP), d#SCPADR 
‘ghee 


PC, PUBLISH 
a# | TCNT 
ASWR 


1$ 
Q@SWR, - (SP) 
#177740, (SP) 


(SP) 
— 
| 


'; CHECK FOR CNTL G 


;SET RS TO FIRST TM REG 
;BRANCH IF SPECIFICATION LINE 
;NOT DESIRED ON EACH ITERATION 
;GET TEST NUMBER 

;OUTPUT TIME RECORDED 

;BRANCH IF CONTINUOS LOOP 

;NOT DESIRED 

;DELAY 350 MS 


; INIT 
; CLEAR ERROR FLAG 


;ADDRESS OF ‘DS’ REG IS IN Ri 
*ADDRESS OF ‘FC* REG IS IN RO 


>BRANCH IF ERROR FLAG !S SET 


+GET ITERATION COUNT 
*STORE TIME IN TABLE 


> INCREMENT ITERATION COUNT 
*+BRANCH IF SINGLE ITERATION DESIRED 


+BRANCH IF !TERATIONS INCOMPLETE 


>SET SCOPE ADDRESS TO NEXT TEST 
*BRANCH IF NO PUBLICATION DESIRED 


*GO PUBLISH TEST DATA 

;RESET ITERATION COUNT 

*+BRANCH IF USER DOES NOT WANT TO 
+>HALT ON A SELECTED TEST 

;GET SWITCHES 

*CLEAR ALL BUT TEST & 

*FORM TEST & -1 

>BRANCH IF NOT AT TEST 


SEQ 0050 | 


OZTUG-B ae OR IVE 4 gh ine TIMER 
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2021 004350 O00000 
2022 O04352 004767 175416 
2023 004356 000705 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 004360 005004 
2036 004362 012703 000024 
203? 004366 032765 000100 
2038 004374 001405 
2039 GO437é 032765 000100 
2040 OO4404 001374 
2041 004406 COO0405 
2042 
2043 004410 005403 
2044 OO4412 032765 000100 
2045 004420 001774 
2046 004422 000207 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 004424 022765 000100 
2059 O04%432 001406 
2060 O04434 000112 
2061 
2062 004450 
2063 004450 005493 
005204 
100401 
000112 
000004 614766 
104400 
000177 174314 
004474 
032765 000100 
001362 
000112 





000024 
000024 


000024 


060024 


000024 


. hn 4 
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SCOPE SUBROUTINE 


HALT 
JSR PC, CKSWR +CHECK FOR CNTL G 
BR 1$ 


.SBTTL TIMER SUBROUTINES 


*+SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 

*REGISTER 4 IS CLEARED. AND THE OSCILLATOR POLARITY |S MONITORED 
*THE ROUTINE 1S EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
*SET TO — THE POLARITY OF THE OSCILLATOR. 


/CALL: J PC. TIMON 
* RETURNS: a ng TO INDICATE LAST POLARITY (424/7-24=0/1) 
TIMON: CLR RY +CLEAR TIME COUNT 
MOV #Z4,R3 +SET POLARITY TO ‘0’ STATE 
ae scala +BRANCH IF POLARITY IS ‘O° 
1$: BIT #OSC, MRC(RS) ;WAIT FOR OSCILLATOR TO RETURN 
BNE 1$ 
BR 4% 
2$: NEG R3 +NEGATE PREV POLARITY INDICATOR 
33: BiT #OSC, MRCRS) +WAIT FOR OSCILLATOR TO RETURN 
BEQ 3% +TO ‘1° STATE 
4S: RTS PC 


> SUBROUTINE TO COUNT TIME 

>EACH TIME THE OSCILLATOR TOGGLES (81T <O06> IN MR REG) REGISTER 

7R4 IS INCREMENTED, AND THE REGISTER R3 1S NEGATED TO INDICATE 

>THE LAST STATE OF THE OSCILLATOR. 

* CALL JMP TIMER CRS) 7RZ 1S SET BY TIMON ROUTINE 
RZ=RETURN ADDRESS TO CALLER 

;NOTE: THE TIME TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 

*LESS THAN 4O US. 


7ENTER HERE VIA JMP TIMER(R3) WHEN R3=-24 (PREV STATE=1) 


TIMER1: BIT #OSC, MRCRS) ;BRANCH IF CURRENT STATE IS ‘O° 
BEQ TIMER -GO INCREMENT TIME 
JMP (R2) ;RETURN TO TEST 
. =TIMER1+24 

TIMER: NEG R3 ;NEGATE PREV STATE INDICATOR 
INC RY ; INCREMENT ‘TICK’ COUNT 
BMI TIMERR >BRANCH ON OVERFLOW 
JMP (RZ) >;RETURN TO TEST 

TIMERR: TYPE.E. T!MOV ; TYPE ‘TIMER OVERFLOWED' 
HLT ;REPORT HARDWARE ERROR 
JMP aSCPADR ;RETURN TO BEGINNING OF TEST 
. =TIMER+Z24 


; ENTER HERE VIA JMP TIMER(R3) WHEN R3=+24 (PREV STATE=0) 


TIMERO: BIT #OSC, MRC(RS) *>BRANCH IF CURRENT STATE = ‘1° 
BNE TIMER 
JMP (RZ) 


a 


UZTUG-B ae DRIVE 


CZTUGC. P 02-DEC-77 


004506 


004767 
012700 


001374 
010246 


010346 











004614 


004767 
000207 


004767 





001374 


FUNCTION TIMER 


09: 46 


176050 
000070 


000012 
000262 


001016 
001126 
001016 
001016 


175770 


175740 
000070 


001422 
001424 


3 (GTIMTBL42-GAPTBL(R1)). 


~ 


N 4 
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TIMER SUBROUTINES 


*SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 

*THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
+ THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
*WITH THE HIGH LIMIT (STIMTBL(RO)) AND THE LOW LIMIT (STIMTBL42(RO)). 





;1F THE TIME 1S OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 
>THE SUBROUTINE IS ENTERED WITH: 
F R4=TICK COUNT 
TIMOK: 
JSR PC,. SAVE ;SAVE REGISTERS ON THE STACK 
MOV #56. ,R0 ;GET TIME PER TICK 
MOV R4,R1 ;GET TICKS COUNT 
oe +: ;CLEAR SUMMING REGISTERS 
1$ ADD RO. RZ ;MULTIPLY TIME PER TICK 
ADC R3 ;BY TICK COUNT 
DEC Ri 
BNE 1% 
MOV RZ,-(SP) ;DIVIDE COUNT BY 10. 
Nov R3,- (SP) 
MOV #10. ,-(SP) 
JSR PC,DIVIDE 
TST (SP)+ ;DISCARD REMAINDER 
MOV SP) +, d#ATIME >STORE QUOTIENT 
MOV TSTNUM,. RO ,;GET TEST & 
ASL 
ASL 
CMP ATIME, STIMNTBL (RO) ; CHECK THAT TIME IS WITHIN 
BHI 23 LIMITS SPECIFIED 
CMP @sATINE,. STIMTBL+Z2(RO) 
BHI 3$ 
23: HL T+1 >CALL ERROR ROUTINE 
33: | 
JSR PC,. RESTORE RESTORE REGISTERS FROM THE STACK 
RTS PC ; RETURN 


> SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TSTOZ21) 

; SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

; THAT THE GAP TIME RECORDED BY THE SUBTEST (TSTO21) BY COMPARING THE 
> TIME WITH THE MAX LIMIT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 


 ;CALL: MOV TICK COUNT. RY ;R4Y CONTAINS TICK COUNT 
; MOVB # GAP, d&#GAP ; LOCATION GAP CONTAINS GAP & 
; JSR PC, GAPOK 
GAP OK: 
JSR PC,. SAVE ;SAVE REGISTERS ON THE STACK 
MOV #56. ,RO ;GET TIME PER TICK 
MOV R4Y,R1 >;GET TICK COUNT 
CLR RZ ;CLEAR SUMMING REGISTERS 
CLR R3 
1% ADD RO,RZ2 ;MULTIPLY TICK COUNT 
ADC R3 ;BY TIME PER TICK 
DEC R1 
BNE 1% 


SEQ 0052 
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C2T Pii 02-DEC-77 


UGC. 





004644 


004732 


004736 
004736 
004742 





010246 
010346 


004767 


004767 
000207 


004767 
010246 
012702 


000163 
032704 
001773 
012602 
000207 


005767 
001413 
004 767 
010246 
012702 


000163 
023704 
101373 
012602 
000207 


09: 4 


000012 
000152 


001016 
001124 
001016 
001016 


000400 
176214 


175642 


177410 
CO4 762 


004450 
004000 


174120 
177352 
005020 


004450 
601120 


001576 
001600 


174050 


ee TIMER MACY11 30(104%6) 
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TIMER SUBROUTINES 


23: 
339: 


1008: 


DELAY: 


15: 
23: 


T 


RZ, -(SP) 

R3,-(SP) 

#10. , - (SP) 

PC, DIVIDE 

(SP)+ 

(SP)+, O#ATIME 
d#GAP, RZ 

R3 

R3 

O#ATIMNE. GTIMTBL(R3) 


2% 

O#ATIMNE, GTIMTBL4+2(R3) 
3$ 

100% 

#SWO8, ASWR 

100% 

PC, OUTGAP 


PC,. RESTORE 
PC 


53 
+DIVIDE TIME BY 10. 


+DISCARD REMAINDER 
+STORE QUOTIENT 
+GET GAP & 


; MULTPLY BY 

+70 GET AT TABLE ENTRY 
; CHECK TIME (MAX) 
+CHECK TIME (MIN) 
+REPORT OUT OF RANGE ERROR 
+BRANCH IF TIMES NOT WANTED 
+ TYPE GAP TIMES 


>RESTORE REGISTERS FROM THE STACK 
>RETURN TO TEST 


DELAY SUBROUTINES 


‘ 


RZ, - (SP) 
#2$,R2 


TIMER(RS) 
#4000, R4 


1% 
(SP)+,R2 
PC 


; THIS SUBROUTINE CAUSES A DELAY OF 350 MS. 
JSR P ON 


;SAVE RZ ON THE STACK 
+SET RETURN ADDRESS FOR TIMER 


>GO TO TIMER & RETURN VIA RZ 


-RESTORE R2 


> THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO 6598S. ) 


> CALL: 


DELAYU: 


; CALL: 


DELAY TIME.DELTIN 
PC, DELAYV 
DELTIN 


3% 

PC, TIMON 
RZ, -(SP) 
#23,R2Z 


TIMER CRS) 
@@DELTIN. RY 


1$ 
(SP)+,R2 
PC 


.SBTTL DIVIDE SUBROUTINE 
; THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 
;T0 THE CALLER ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 
LEAST SIGNIFICANT HALF DIVIDEND. -(SP) 

aMOST SIGNIFICANT HALF DIVIDEND. -(SP) 


MOV 
MoV 


+;LOAD DELAY TIME CIN US) 
;BRANCH IF O DELAY 

>; TURN TIMER ON 

>SAVE RZ ON THE STACK 

;SET RETURN ADDRESS FROM TINER 


*GO TO TIMER & RETURN VIA R2 


>RESTORE RZ 


SEQ 0053 


Cc § — 
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2189 ; MoV #DIVISOR. -(SP) | 
2190 ; JSR PC, DIVIDE | 
2191 +RETURN 

2192 ; (SP)=REMAINDER ON STACK 


aa. ; Z2(SP )=QUOTIENT 

ey +NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO.R1,RZ & R3. 
2197 Q05032 005046 DIVIDE: CLR - (S$?) +SAVE LOC FOR SIGNS 

2198 Q005034 012746 000021 MOV #17. .-(SP) +SET ITERATION COUNT 

2199 Q05040 016601 000012 MOV 12Z2(SP),R1 *+GET LSH DIVIDEND 

2200 005044 016600 000010 MOV 10(SP),R0 +GET MSH DIVIDEND 

2201 005050 016602 000006 MOV 6(SP),RZ +GET DIVISOR 

2202 005054 005402 NEG R2 +NEGATE DIVISOR 

2203 005056 000241 CLC : *CLEAR ‘'C’ BIT IN PSW 

2204 005060 05 BR 2% 

2205 005062 006100 1$: ROL RO +ROTATE MSH DIVIDEND 

2206 005064 010003 MOV RO.R3 +SAVE IN RS 

2207 005066 060203 ADD RZ,R3 +SUBTRACT DIVISOR FROM MSH DIVIDEND 
2208 005070 103001 BCC $ +BRANCH IF DIVIDEND > DIVISOR 
2209 005072 010300 MOV R3,RO +SAVE REMAINDER IN RO 

2210 005074 006101 2$: ROL R1 *ROTATE LSH DIVIDEND 

2211 005076 005316 DEC (SP) >DECREMENT ITERATION COUNT 
2212 005100 001370 BNE 1$ 

2213 005102 005726 TST (SP )+ +POP ITERATION COUNTER 

221% 005104 005726 TST (SP )+ >POP SIGN CORRECTION 

2215 005106 010166 9000006 MOV R1.6(SP) *PUSH REMAINDER ON STACK 
2216 005112 010066 900004 Mov RO, 4CSP) >PUSH QUOTIENT ONTO STACK 
2217 005116 012616 MOV (SP)+, (SP) 





LDL LLL LL Net tt _ —— = 
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2218 005120 000207 RTS sé | 
2220 SBTTL DRIVE SUBROUTINES | 
2221 ;SUBROUTINE TO CHECK IF DRIVE 1 AVAILABLE 
2222 SCALL. MOVB DRIVES, ORUNUM 
2223 ; Is /DRVAVA 
2224 "RETURN: '€’ BIT SET IF NOT AVAILABLE 
2225 005122 113765 OO01010 000010 DRVAVA: MOVE  asORVNUM, CSZ2(R5) SLOAD DRIVE & 

7226 005130 032765 o¥O000 o00026 BIT «TAP, DT(RE) “CHECK IF TAPE UNIT 
2227 005136 001003 BNE 18 
°728 005140 O04767 ©C00034 JSR «PCL RHINIT 
5229 005144 000262 SEV SET ‘V' TO IND NOT AVAIL 
2230 O081%6 000207 15: RTS ~—SséPC “ RETURN 
31 

3232 SUBROUTINE TO CHECK IF TEI6 SLAVE IS AVAILABLE FOR TEST 
3333 SCALL: MOVB DRIVE #, a#ORVNU TPASS DRIVE # VIA DRYNUM 
3234 : Ove SLAVE 9. 38SLUNUT “PASS SLAVE # VIA SLUNUM 
2235 JSR —s-PC, SLVAVA “CALL SUBROUTINE 
3236 O051S0 113765 001010 000010 SLVAVA: MOVB  a#ORVNUM, CS2(RS) “LOAD DRIVE § 

2237 OOS156 113765 001011 00032 MOVB -M#SLUYNUM, TC(RS) SAND SLAVE # 

2238 O0516% 032765 002000 o00026 BIT «SPR, DT(RS) ‘BRANCH IF SLAVE PRESENT 
2239 005172 001901 BNE 18 
2240 05174 900262 SEV SET 'V' TO INDICATE NO SLAVE 
2241 005176 000207 15: RTS sé 

SUBROUTINE TO INITIALIZE RH CONTROLLER 
“CALL: JSR PC-RHINIT 
012765 OO0040 000016 RHINIT: MOV @40,CS2<R5) 
113765 001010 o00C10 MOVE - ABDRUNUM, CS2(R5) 
o05046 CLR = SP) 
113716 001011 MovB @8SLVNUM. (SP) 
012665 000032 HOV ss (SP), TCERS) “LOAD SLAVE # INTO TC REG 
062766 000300 000032 BIS —-RNORMI1, TC(RS) 
000207 RTS ~—SséP 
SUBROUTINE TO WAIT FOR DRIVE READY (DRY) 
005027 WAITRDY: CLR (PC) + CLEAR WAIT TIMER 
WAITTIM: . WORD 0 
000012 1S: TSTB DS«RS) SWAIT FOR READY TO SET 
Mi 
177764 INC = WANTTIM INCREMENT WAIT TIMER 
BNE «18 “BRANCH IF TIME HAS NOT EXPIRED 
015013 TYPE, £. TIMEXP “TYPE ‘TIME EXPIRED WAITING FOR RDY' 
BR 995 “TAKE ERROR EXIT 
902000 00012 2s: BIT —«sREOT- DSCRS) “CHECK FOR END OF TAPE 
BEQ Ss “BRANCH IF NO EOT 
014060 TYPE, M. NAM 
014376 TYPE. MEOT STYPE ‘END OF TAPE: 
000032 JSR _PC,. REWIND SREWIND SLAVE 
BUS sé “BRANCH IF ERROR ON REWIND 
000106 JSR «PC WRITE “WRITE A RECORD 
INC CRS) “SET 'GO' BIT 
177712 JSR «PC WAITRDY “WAIT FOR READY 
000404 BR 995 “TAKE ERROR EXIT 
032765 o4o000 000012 3%. BIT —s«RERR, DS(RS) “CHECK ERROR EXIT 
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2274 Q005334 001401 BEQ 100% 
2275 005336 000262 995: SEV 
2276 005340 000207 1008: RTS PC 
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227% +SUBROUTINE TO REWIND A UNIT (ORIVE/SLAVE COMBINATION) 
2279 *CALL MOVB DRIVE #, d#DRVNUM 





we ee ae —_ 
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2220 ; MOVB SLAVE #. d#SLVNUNM 

2221 ; JSR PC,. REWIND 

2282 *+SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’, & ‘WV’ SET IF 
2283 *AN ERROR OCCURS. 


= 


«ao 
2285 005342 004767 177632 . REWIND: JSR PC. RHINIT + INITIALIZE CONTROLLER 


O2TUG-B TMO2Z/TE16 ets 
P11 02-DEC-7 


C2TUGC. 


005404 


005406 
005414 
005416 
005420 
005422 


0054 24 
0054 30 
0054 32 
0054 34 
0054 36 
005440 


005442 
005446 
005450 
005452 
005454 
005456 


005460 
005464 


005516 


000767 


032765 
001374 
000401 
000262 
000207 


004 367 
016420 
177600 
177400 
000060 
000207 


004 337 
016420 
177600 
177400 
000070 
000207 


004 367 
017020 
177600 
177400 
000076 
000207 


012765 


000207 


004767 


FUNCTION TIMER 


7 O9: 46 
000206 


000002 


040000 


020000 


000130 


005560 


000074 


177777 
000031 
177522 


177702 


000012 
000012 


000012 


000006 


MACY11 3001046) 
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ORIVE SUBROUTINES 


ee a ae 


59 


+GO TO TM COMMAND SUBROUTINE 
+BUS ADDRESS (NOT USED) 
*WORD COUNT (NOT USED) 
+FRAME COUNT (NOT USED) 
*REWIND COMMAND 

*SET ‘GO’ 


;BRANCH IF ‘BOT’ SET 


+CHECK ERROR BIT 
+BRANCH IF ERROR BIT SET 


+WAIT FOR TAPE MOTION TO STOP 


+GO TO TM COMMAND SUBROUTINE 
>BUS ADDRESS 

+WORD COUNT 

>FRAME COUNT 

*WRITE FORWARD COMMAND 


-ADDRESS OF READ BUFFER 

>Z2'S COMPLEMENT OF WORD COUNT 
>2°S COMPLEMENT OF FRAME COUNT 
*READ FORWARD COMMAND 


;ADDRESS OF READ REVERSE BUFFER 
>2'S COMPLEMENT OF WORD COUNT 
>2'S COMPLEMENT OF FRAME COUNT 
>READ REVERSE COMMAND 


>LOAD RECORD COUNT 
>LORD COMMAND 
;WAIT FOR READY 


JSR R3. THCND 
WORD OQ 
WORD OQ 
WORD OQ 
WORD RWD 
INC (RS) 
13: BIT #BOT, OS(RS) 
BNE 2$ 
BIT RERR, OS(RS) 
BNE 994% 
BR 1$ 
23: BiT #PiP,DS(R5) 
BNE 2$ 
BR 100% 
995: SEV 
100%: RTS PC 
>; SUBROUTINE TO WRITE 256. WORD RECORD 
>;CALL: JSR PC,WRITE 
WRITE: JSR R3, THCNOD 
.WORD WTBUF 
.WORD WROCNT 
.WORD FRHCNT 
.WORD £WEFWOD 
RTS PC 
; SUBROUTINE TO READ A 256. WORD RECORD. 
>;CALL: JSR PC,READ 
READ: JSR R3, 08 TNCMD 
.WORD RDBUF 
.WORD WROCNT 
_WORD FRMCNT 
.WORD RODFWOD 
RTS PC 
; SUBROUTINE TO INITIATE READ REVERSE COMMAND 
/ CALL: JSR PC,REVRD 
REVRD: JSR R3, TNCND 
.WORD RDBUF +256. 
WORD WROCNT 
WORD = FRMCNT 
_WORD RODREV 
RTS Pc 
; SUBROUTINE TO SPACE FORWARD 1 RECORD 
FUDSPC: MoV #-1,FC(R5) 
MOV #SPCFWD+1, (RS) 
JSR PC,WAITRDY 
RTS PC 


;RETURN 


; SUBROUTINE TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 


WRT. BK: JSR 


PC, WRITE 


;WRITE THE RECORD 


SEQ 0059 


— ——— ee ee —_-+ 
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2342 
2343 
2344 


005522 
005524 


065560 
005564 
005570 
005574 
005576 


005215 
004767 
102412 
012765 
012715 
004767 
102402 
004767 
000207 


012365 
012565 
012365 
C12315 
000203 


016503 
012701 





000207 
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177506 
177777 
000033 
177466 


177166 


000004 
O06C02 
o00C06 


000030 
001150 


177760 
000260 


000030 


177760 
000260 


000030 


177760 
000260 


000030 


177760 
000260 


001150 


000006 


MACY11 30(104%6) 
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*SET ‘GO’ BIT 


+LOAD RECORC COUNT 
+LOAD COMMAND 


;WAIT FOR TAPE MOTION TO STOP 


;LOAD BUS ADDRESS 
;LORAD WORD COUNT 
; LOAD FRAME COUNT 
;LOAD COMMAND 

; RETURN 


;GET FIPST DIGIT 


-FILL FIRST DIGIT 


GET SECOND OIGiT 


>GET THIRO DIGIT 


>GET FOURTH DIGIT 


INC (RS) 
JSR PC,WAITRDY 
BYVS 23 
MOV #-1,FC (RS) 
MOV #SPCREV41, (RS) 
JSR PC, WAITROY 
BVS 23 
15: JSR PC, DELAY 
23: RTS PC 
» SUBROUTINE TO LOAD A COMMAND 
;CALL: JSR R3, THCND 
: .WORD BUS ADDRESS 
; -WORD WORD COUNT (2'S COMPLEMENT) 
: .WORD FRAME COUNT (2'S COMPLEMENT) 
; .WORD COMMAND 
TMCMD: MOV (R3)+, BACRS) 
MOV (R3)+,WC CRS) 
MOV (R3)4+,FCCRS) 
MOV (R3)+, (RS) 
RTS R3 
>; SUBROUTINE TO PRINT TE16 SERIAL NUMBER 
> JSR PC, SNPT 
SNPT: MOV SN(RS),RI 
MOV #O0DIGITS.R1 
SWAB R3 
ROR R3 
ROR R3 
ROR R3 
ROR R3 
BIC #177760.R3 
BiS #260,R3 
MOVB R3, (R1)+ 
MOV SN(R5).R3 
SWAB R3 3 
BIC #177760.R3 
BIS #260-R3 
MOVB R3, <R1)+ 
MOV SNCR5),R3 
ROR R3 
ROR R3 
ROR R3 
ROR R3 
BIC #177760. R3 
Bis #260,R3 
MOVB R3,.(R1)+ 
MOV SN(RS),R3 
BIC #177760,R3 
BIS #260,R3 
MOVB R3,(R1)+ 
CLR (R1) 


B 
TYPE, ODIGITS 
RTS PC 


; TYPE SERIAL NUMBEF 
> RETURN 


SEQ 0060 


ee ae ee oe 


rr re eee -_-- - Tt 
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2392 | 





C 


ZTUGC. 


2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 








005730 


005734 
005740 
005744 
005746 
005750 
005756 
005760 
005764 


006120 
006124 
006126 


012706 


004767 
005767 
001001 
000410 
032737 
001404 
000004 
C00167 


013746 
013746 
012737 
022777 
001402 





005767 
001402 
006167 


000600 


005732 
173020 
020000 


014036 
005774 


000006 
000004 
006020 
177777 


000176 


000002 
001270 


172642 
000662 
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000052 


000004 
172764 


172750 


001000 


900004 
000006 


MACY11 30(104%6) 


DRIVE SUBROUTINES 


INIT: 


1$: 


64S: 


23: 


.SBTTL PROGRAM INITIAL! ZATION 


MOV RSTKPTR, SP 


K § 
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SEQ 0062 


+SET STACK PTR 


KXXXKKK MODIFIED 11-8-77 AEKRKAAAAAARAAA AAA AAA AK Kd 
DIAGNOSTIC SETUP FCR EXECUTION 


+CHECK FOR MODE OF OPERATION 
;AUTOMATIC MODE? 

+BRANCH - IF YES 

+CHECK SWITCH REGISTER IN DUMP MODE 
+MANUAL INTERVENTION? 





+AND ABORT THE PROGRAM 


KEXAAAKAAARALA ARAL A AAA AAA AAA AAA A AAAS AAAS Aaa 56744554 





UNDER ACT11. 
+ 
+ 
JSR PC, CKMODE 
TST AUTON 
BNE 1% 
BR SUSWR 
BIT #20000, a#52 
BEQ SUSWR 
TYPE. MSGB 
JMP ABORT 
MOV 
MOV 
CMP 
BEG 
BR 
CMP (SP)+, (SP)+ 
MoV #SWREG, 
MOV (SP )+, d84 
MoV (SP )+, d#6 
CMP RSWREG. dFSWR 
BNE 64$ 
JSR PC, CNTILU 
CLRB @tPRGFLG 
CLRB a8 i TCNT 
CLRB oe TSTNUN 
CLRB @#ERFLG 
CLRB ASFLG 


MoV #ERRVEC +2, ORERRVEC 
ARTI, DRERRVEC +2 
0% | NBUF 


+SAVE VECTORS 


,SET UP FOR TiMEOUT 
;REFERENCE HARDWARE SWITCH REGISTER 


;ADJUST STACK 
+POINT TO SOFTWARE SWITCH REG 
-RESTORE VECTORS 


; CLEAR PROGRAM FLAG 
-CLEAR ITERATION COUNT 
>SET TEST # O 

; CLEAR ERROR FLAG 

> CLEAR ASK FLAG 


*CHECK IF ‘LP* IS AVAILABLE 


KXMKKEKKE MODIFIED 11-88-77 KXXARAAAAAAAAAARAAAAA AAA ATTY 


IF IN ACT11 MODE INHIBIT TYPING PROGRAM 
IDENTIFICATION AND MANUAL INTERVENTION 


TST ACTIiM 
BEQ 7% 
JMP $1ZE 


; AUTOMATIC MODE? 
;BRANCH - IF NO 
;START THERE 


KKKAAAKA AAA AA AKA AAA AAA AAA AAA AAA AAA AAA AAA RARER KA 
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2455 
2456 006132 7S: 
2457 
2458 006132 000004 001400 TYPE. CRLF 
2459 006136 Q00004% 014060 TYPE. M. NAM +TYPE TITLE 
2460 006142 O00004% 014116 TYPE, |. REG +ASK USER TO TYPE CONT BASE ADRS 
2461 006146 004767 175326 SR PC,. INPUT *GET USER INPUT 
2462 006152 004767 175106 4S: JSR PC, CNVTAO +CONVERT ASCII TO OCTAL 
2463 006156 013737 901122 001014 MOV dF OCTALO, d# TNBASE +SET NEW ADDRESS 
—- 006164 013705 001014 5S: MOV O# TNBASE, RS 
2466 *ROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAABLE 
2467 006170 00C261 SEC ;SET 'C' IN PSH 
2468 006172 005715 TST (R5) +BRANCH IF CONTROLLER AVAIL 
2469 006174 103003 BCC 6% 
2470 006176 OO0004 014435 TYPE. E. NCON 
2471 006202 000652 BR INIT 
2472 O66204 012737 003654 Q0C0004 6%: MoV RERRTRP, OQRERRVEC -SET ERROR TRAP VECTOR 


4 


SEQ 0063 


C2T 


2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
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006212 
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105037 


000417 


122710 
001414 
121027 
00100: 
405720 
112001 
042701 
112761 





105037 


ee TIMER MACY11 3001046) 


001127 
001160 
000004 


014163 
175234 
001270 
000101 


172646 
001160 


000004 
177777 


000015 
000054 


177770 
177777 


001160 
000010 
001010 
005122 
014502 
001136 
014534 
001127 
001160 
001127 


001130 


001127 


001160 


014534 


PROGRAM INITIALIZATION 


+ROUTINE TO GET TMOZ ORIVES USER DESIRES TO TEST 
CLRB OFERFLG +CL 


nH § 
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SE A ee ] 


SEQ 0064 


DRIVES: EAR ERROR FLAG | 
MOV. «= SDRVTSL Rt ‘HARK ALL DRIVES AS NOT TO 
MOV «#4 RO :BE TESTED. A ‘0’ INDICATES 
15: CLR (R1)¢ “THAT A DRIVE 1S NOT TO BE 
DEC RO : TESTED 
BNE 15 
TYPE, |. DRVS 
ISR PC,. INPUT GET USER INPUT 
MOV =—sINBUF, RO | 
CMPB.s«#'A, (RO) SAN ‘A’ SPECIFIES ALL 
BNE 35 SORIVES TO BE TESTED 
MOVE «SP PRGFLG SET FLAG TO IND ALL DRIVES 
MOV =—sDRVTBL-R1 ;MARK ALL DRIVES TO BE TESTED 
MOV —s«#4 RO “A '=1' INDICATES THAT A DRIVE 
25: MOVs 1, CRAD4 1S TO BE TESTED 
DEC RO 
BNE 25 
BR CHKDRV ;GO CHECK DRIVE AVAILABILITY 
GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
35: CMPB OCR, (RO) 
BEQ = CHKORV 
CHPB CRO). 8°, CHECK IF ‘COMMA’ 
BNE 4S 
TSTB (ROD STEP PTR PAST ‘COMMA’ 
4S. MOVE (RO) +, RI 
BIC #177770,R1 
Move #-1,DRVTBL (Ri) 
NOP 
BR 38 
|ASCERTAIN THAT DRIVES (TNO2'S) SPECIFIED ARE AVAILABLE 
CHKORV: CLR — RO >A O/-1 INDICATES THAT THE 
1S: TSTB ss ORWTBL(RO) DRIVE 1S NOT/IS TO BE TESTED 
BNE 3$ 
23: INC RG 
CHPB «#8. - RO 
BNE 1S 
BR uS 
35: MOVE «RO, a#DRYNUM 
JSR —s«wPC, ABORVAVA CHECK IF AVAILABLE 
BYC 2$ BIT SET INDICATES NOT AVAIL 
TYPE, E. NORV 
MOVE DIGTAB(RO)- a¥E. NAVA = SET DRIVE # IN MESSAGE 
TYPE, E. NAVA : 
MOVE S?, a#ERFLG SET "ERROR' FLAG 
CLRB —- ORVTBL(RO) MARK DRIVE UNAVAILABLE 
R 25 CHECK NEXT DRIVE 
45. TSTB 430s DRERFLG GO GET SLAVES IF NO ERROR 
BEQ _—Ss SLAVES 
TSTB  - APPRGFLG ASK USER TO RETYPE DRIVES IF 
BEQ DRIVES ALL’ NOT SPECIFIED 


;ROUTINE TO GET SLAVES (TE16'S) USER DESIRES TO TEST 


SLAVES: CLRB 


O#ERFLG 


*CLEAR ‘ERROR’ FLAG 


gts B ae ae DRIVE a TIMER bag 30(1046) 
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006446 





012701 
012700 
005021 
005300 


001375 


10573? 
001020 
110067 
116037 
000004 
004767 
012703 
122710 
001015 
110637 
012701 
012700 
012721 
005300 
001374 
105737 
001016 


122713 
001730 
121327 
001001 
105723 
112304 
042704 
060104 
112714 
000762 





001170 
000040 


001170 
001160 


009010 
000010 


001130 


172260 
001136 
014225 
174732 
001270 
000101 


001130 
001170 


000040 
177777 


001130 


000015 


000054 


177770 
177777 


001170 
001160 


000010 
000010 


014244 
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ROGRAM INITIALIZATION 


MOV #SLVTBL.R1 
MOV #32. ,.R0 
1$: CLR (R1)+ 
DEC RO 
BNE 1$ 
CLR RO 
MOV #SLVTBL.R1 
23: TSTB ORVTBL (RO) 
BNE 4% 
33: ADD #8..R1 
INC RO 
CMPB #8. .R0 
BNE 23 
BR CHKSLV 
4S: TSTB ORPRGFLG 
BNE 55 
MOVB RO, ORVNUN 
MOVB DIGTAB CRO), d#1. ORV 
TYPE. |. SLVS 
JSR PC,. INPUT 
MoV # INBUF,R3 
CMPB # ‘A, CRO) 
BNE 7$ 
MOVB SP. d@PRGFLG 
59%: MOV SSLVTBL. Ri 
MoV #32. .RO 
6$: MOV 8-1, (R1)+ 
DEC RO 
BNE 6% 
TSTB O#PRGFLG 
BNE CHKSLV 
BEQ 3$ 
CMPB (R3).8', 
NE 8S 
TSTB (R3)+ 
8S: MOVB (R3)+,R4 
BIC #177770, RY 
ADD R1i.R4 
MOVB a-1, (R4) 
BR 7% 
; ASCERTAIN THAT 
CHKSLV: CLR 
CLR Ri 
MOV #SLVTBL,.RZ 
1S: TSTB DRVTBL(RO) 
BNE 3$ 
25. INC RO 
ADD #8.,RZ 
CMP #8. -RO0 
BNE 1% 
BR 7% 


65 SEQ 0065 


+MARK ALL SLAVES (64. ) AS NOT 
+70 BE TESTED. A O INDICATES THAT 
Osean SLAVE iS NOT TO BE 


, 


+RO = DRIVE # FOR SLAVES 

+R1i POINTS TO ORIVE'S SLAVE 

+1F DRIVE IS TO BE TESTED 

;GO TO 4$ OTHERWISE 

*STEP SLAVE PTR TO NEXT eT Ss 
+ SLAVES er eel DRIVE & 


+ CHECK AL 
+AND WHEN ALL DRIVES CHECKED 
G0 CHECK SLAVE AVAILABILITY 


ee IF USER SELECTED ALL 


DRIV 
+GET DRIVE & 
+PREPARE USER ACTION MESSAGE 


;GET USER INPUT 

;SET PTR TO USER INPUT 

;BRANCH IF USER DOES NOT WANT 

;"ALL’ SLAVES 

;SET ‘ALL’ INDICATOR 

;MARK ALL SLAVES FOR ALL e 
;DRIVES AS TO BE TESTED 


*+BRANCH IF ALL WAS SELECTED 


2 » aay SELECTED SLAVES FOR 
>STEP PTR PAST ‘COMMA’ 


»AND MARK SELECED SLAVE 
>AS TO BE TESTED 


_— (TE16'S) SELECTED ARE AVAILABLE 


+RO WILL CONTAIN THE DRIVE & 
->AND R1 THE SLAVE & 

; SET PTR TO SLAVE TABLE 

*>BRANCH IF DRIVE SELECTED 

*+& AVAILABLE FOR TEST 

> INCREMENT DRIVE & 

+STEP SLAVE PTR TO NEXT DRIVE'S 
*>SLAVES. BRANCH TO 18 IF NOT ALL 
DRIVES CHECKED OTHERWISE EXIT 








C2T 





UGC. P 


006770 


006772 
006776 
007000 
007004 
007006 


007014 


007014 
007020 
007024 
007032 


OZTUG-B TMOZ/TE16 DRIVE 
11 02-DEC-77 O09 


005001 
105712 
001006 
005201 
005202 
022701 
001371 
000760 


110037 


000747 


105737 
001403 
105737 
001616 
012737 


105037 
105037 
012737 
105037 


012767 


001354 


000010 


001010 
001011 
005150 


001136 
001136 


014516 
001127 


001127 
001130 
003654 


001010 
001011 
001170 
001131 


177777 


010000 


FUNCTION TIMER 
46 


014524 
014534 


000004 


001012 


171744 
171737 
170730 


171716 


170702 
170670 


MACY11 30(104%6) 


B 6 
O2-DEC-77 09:48 


PROGRAM INITIALIZATION 


33: 
4§: 


55: 


6$: 


7%: 


100%: 
S12ZE: 


>SCAN DRIVE AND 


25: 


cLR Ri 

TSTB (R2) 

BNE 6$ 

INC Ri 

INC RZ 

CMP #8.,R1 

BNE 4% 

BR 2$ 

MOVB RO, d#ORVNUM 
MOVE R1, d#SLVNUM 
JSR PC, d#SLVAVA 
BVC 55 

MOvVB 

MOVB 

TYPE, E. NSLV 

MOVB SP, O#ERFLG 
CLRB (RZ) 

BR 55 

TSTB ORERFLG 
BEQ 100$ 

TSTB OPRGFLG 
BEQ SLAVES 

MOV RERPTRP, ORERRVEC 


DIGTAB(RO), a#E. ORV 


PAGE 


DIGTAB(R1). d#E. NAVA 


66 


‘SET SLAVE # 0 


ANCH IF DRIVE'S SLAVE IS SEL- 


+ BR 

s;ECTED FOR TEST 

+ INCREMENT SLAVE & 

+STEP PTR TO NEXT SLAVE 

+GO TO 4$ IF ALL SLAVES NOT 


+ CHECKED 

; OTHERWISE GO TO 2% ABOVE 
+PASS DRIVE & SLAVE & 

+AND CHECK IF AVAILABLE 
*+'V’ BIT SET ON RETURN IND- 
> ICATES ERROR. PREPARE ERROR 
+ MESSAGE 

+SET ERROR INDICATOR 

+CLEAR SLAVE TABLE ENTRY 
+GET NEXT SLAVE 

+BRANCH IF NO ERROR 


*BRANCH IF NOT ‘ALL’ 
;ASK USER TO RETYPE SLAVES 


SLAVE TABLE FOR ORIVE/SLAVE COMBINATION TO TEST 


d# OR VNUMN 
0% SL VNUM 
#SLVTBL. D#SLVPTR 
aS UNTF ND 


+SET DRIVE AND SLAVE # O 


>SET PTR TO SLAVE TABLE 
>CLEAR ‘UNIT FOUND’ IND. 


KAXXKEKAKEAAA AREA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AE 
MACRO FOR SIZING DRIVES AND SLAVES 


IN AUTOMATIC MODE. 


#-1, ORVNUM 


#10, DRVNUM 
2$ 


FINISH 


DRVNUM, aCSZ 
acsi 

+ article 
1 


>; INIT DRIVE NUMBER 
> INIT SLAVE NUMBER 
> INIT CONTROLLER 
>STEP DRIVE & 

;ALL DRIVE TESTED? 
;BRANCH - IF NO 

; EXIT 

>LOAD DRIVE & 
-ACCESS DRIVE 
;NON-EXISTANT OR!IVE? 
;BRANCH - IF YES 


- —— 


SEQ 0066 


DZTUG-B TMOZ2/TE16 DRIVE 


C2T O2-DEC-77 


264 1 
2642 


UGC. 


Pii 


007122 


007204 


007206 
007212 


005267 


FUNCTION TIMER 


09: 46 
171663 
171654 
171625 


171641 
000010 


171625 
092000 


140000 


001010 
001C11 


171633 


170644 
170632 


170622 


MACY11 30(1046) 


. © 
O2-DEC-77 09:48 


PROGRAM INITIALIZATION 


NXTSLV: 


13: 


BEGIN: 


INC SL VNUM 

BNE 1% 

TST OR VNUM 

BNE 1$ 

TSTB XXDPM 

BEG 1 

INC SL VNUM 

CMP #10, SLVNUM 
BEQ NXTORV 

MOV SLVNUM, aTC 
BIT #2000, dDT 
BEQ NXTSLV 

BiT #140000, dDT 
BEQ NXTSLV 


PAGE 67 
+STEP SLAVE & 
+BRANCH IF NOT SLAVE O 
*DRIVE 0? 
An oy - IF NO 
; : BRANCH - iF 


NO 
;STEP TO SLAVE & 
;ALL DRIVES TESTED? 
;BRANCH - IF YES 
;LOAD SLAVE UNIT? 
; SLAVE PRESENT? 
;BRANCH - IF NO (SPR=0) 
“1S DRIVE A TAPE UNIT? 
;BRANCH !F NO 


KXAAKKAKA AAA AAA AAA AAA A AAA AAA AAA AAA AAA AAA AAA AAA AAA ATES 


d#ORVNUM, RO 
d*SLVNUM, R1 


MOVB 
MOVB 


;GET DRIVE &# 
;AND SLAVE & 


SEQ 0067 


OZTUG-B TMOZ/TE16 DRIVE 


C2T O2-DEC-77 09:4 


UGC. 


Pil 


007216 
007222 


007272 


007274 
007700 


013702 


000137 


105712 
901007 
O0£202 
005201 
122701 
001371 
005001 
000761 


110637 
110037 


001012 
001160 


000010 
000010 
013162 


000010 


001131 
001010 


a TIMER MACY11 30(1046) 


D 6 
O2-DEC-77 09:48 PAGE 


PROGRAM INITIALIZATION 


13: 


23: 


33: 


4S: 


OESLVPTR, RZ 
oo 


~ R14 
#8. ,.R2 
RO 


#8. ,RO 
1 


SP, dRUNTF ND 
RO. d#ORVNUM 


68 


+GET SLAVE PTR 
+BRANCH IF DRIVE AVAIL TO TEST 


+; CLEAR SLAVE &# 

;AND STEP PTR TO NEXT DRIVE'S 
+;SLAVES AND INCREMENT DRIVE &@ 
,EXIT TEST IF ALL DRIVES 

; CHECKED OTHERWISE CONTINUE 
;SCAN FOR NEXT ‘UNIT’ 


BRANCH IF SLAVE ON DRIVE IS 
;AVAILABLE THERWISE STEP 
+PTR TO NEXT SLAVE 

+ INCREMENT SLAVE & 

*UNTIL ALL SLAVES CHECKED 
+WHEN ALL SLAVES CHECKED 
SET SLAVE # 0 

AND CONTINUE SCAN 





s INDICATE THAT A ‘UNIT’ 1S FOUND 


*SET DRIVE 3 


SEQ 0068 


C2T 


UGC. P 


007304 
007310 


007314 
007320 
007322 
007330 


007334 
007340 


007342 
007346 
007352 
007356 
007362 
007364 
007370 
007372 
007376 


007400 


007440 
007440 


O02-DEC-77 O09: 


110137 
010237 


105737 
001047 
112767 
105037 


O0&767 
001037 


000004 
004767 
012703 
122713 
001406 
122713 
001351 
111337 
0004 20 


105037 


111337 


052737. 


46 


001011 
001012 


001134 


000001 
001130 


171424 


014304 
174126 
001270 
000060 
000061 
001130 
001133 
014345 
174064 
001270 
000060 
000061 


001133 


000100 





010501 


007566 
000006 


171604 


177560 
015244 
015256 
015261 
000026 


015261 


001006 


OZTUG-B a ee DRIVE FUNCTION TIMER MACY11 30(104%6) 


—E 6 
O2-DEC-77 09:48 PAGE 69 


PROGRAM INITIALIZATION 


5S: 


oS: 


79: 


TYPHDR: 


Ri, d#SLVNUM 
RZ, OESLVPTR 


Qa#ASFLG 
? 


$ 
#1, ASFLG 
OR PRGFLG 


SEQ 0069 


;SET SLAVE # 
;SAVE SLAVE PTR 


+ CLEAR FROGRAM INDICATOR 


KXXKKKKKK MODIFIED 8-11-77 KEXKKAAAKAAAAAEA AAAS AAA KEES 
CHECK FOR AUTOMATIC MODE 


TST 
BNE 


AUTON 
TYPHOR 


+AUTOMATIC MODE? 
+BRANCH - IF YES 


KAAKAKAAAAAAAA AAA RAK AAA AA AAA ALAA ALAA AA AAA AA EAA ees 44 


TYPE. |. SKEW 
JSR 


+ASK USER IF HE WANTS TO RUN SKEW TESTS 


> PC,. INPUT +GET USER INPUT 

MOV # INBUF,R3 +GET REPLY 

CMPB #'O, (R3) *BRANCH IF ‘NO’ (0) 

BEQ 6$ 

CMPB #' 1, (R3) +CHECK IF ‘YES’ (1) 

BNE 5S +NEITTHER SO ASK AGAIN 

MOVB (R3),d8PRGFLG -;SET INDICATOR 

BR 7% 

CLRB @ENRZFLG +CLEAR NRZ INDICATOR 

TYPE. |. NRZ ;ASK USER IF DRIVE ‘NRZ* ONLY 
JSR PC,. INPUT *GET USER INPUT 

MoV # INBUF. RS +GET REPLY 

CMPB #'O, (R3) *BRANCH IF ‘NO’ (0) 

BEQ 7% 

CMPB #'1.(R3) >CHECK IF ‘YES’ (1) 

BNE . 6$ ;ASK AGAIN IF NEITHER 

MOVB (R3),@#NRZFLG ;SET INDICATOR 

BIS #100. d8#TKS *SET KEYBOARD IE BIT 
TYPE.L. HDR1 

MOVB DIGTAB(RO). d#L. ORV SET DRIVE : 

MOVB DIGTAB(R1). d#L. SLV ;AND SLAVE & 

MOVB #'9,08L. CHAN *>GET SLAVES CHANNEL TYPE 
BIT #CH7, DT(RS) 

BEQ 19 

MOVB #'7,@%L. CHAN +SET 7 CHANNEL 
TYPE, L. HORZ 

JSR PC, SNPT GO PRINT SERIAL NUMBER 
TYPE,L. HORS 

MoV My gl aaa >SET ‘SCOPE’ ADDRESS FOR FIRST TEST 
MOV 5, 

ADD AF C,RO >RO CONTAINS ADDRESS OF FC REG 
MoV R5,R1 


EL — 


F 6 “oo 
OZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) O2-DEC-77 09:48 PAGE 70 SEQ 0070 | 
CZTUGC. P11 O2-DEC-77 O09: 46 PROGRAM INITIALIZATION 


2737 007544 062701 000012 ADD #DS,R1 +R1 CONTAINS ADDRESS OF DS REG 
2738 007550 012703 004450 MOV RTIMER. RS +SET JUMP ADDRESS TO TIMER 
2739 007554 105737 001130 TSTB Oa#PRGFLG BRANCH IF NOT SKEW TESTS 

2740 007560 001402 BEQ TSTOO1 


2741 007562 000137 013326 JMP d#SKEWTST 








gen -B Bally | DRIVE 4g Nias TIMER 


TUGC. P 


2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 


007566 
007574 
007600 
007604 
007606 
007612 
007616 


007620 
007624 
067626 


007632 
007636 
007640 
007644 
007646 
007650 


007710 
007714 
007716 
007722 


11273? 
012702 
004767 
102420 
004767 
004767 
005215 


005765 
100002 
000163 


004 767 
102403 
004767 
000401 
104400 
104000 


112737 


104400 
104000 


112737 
004 767 
005215 


005710 
001404 
032711 
001017 


02-DEC-77 O9: 


00000. 
007620 
175536 
175612 
174542 
000032 
004450 
175400 


174642 


000002 
175540 
007676 
174464 
000032 
004450 
175322 


174564 


000003 
175462 


040000 


001126 


001126 


001126 


MACY11 30(104%6) 
START OF TESTS 


.SBTTL START OF TESTS 
ROM BOT 


G 6 
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; TEST 001 - WRITE FROM 
‘THIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 


+MOVE THE TAPE APPROXIMATELY SEVEN ( 


INCHES FORWARD 


7 
>FROM DEAD STOP BEFORE STARTING TO TRANSFER CATA. 
+THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘ACCL ‘=O. 
MOVB - OR TSTNUM 


TSTOO!: 


18: 


23: 


995: 
1008: 


OV #1 

MOV #15, RZ 

JSR PC,. REWIND 
BVS 99% 

JSR PC. WRITE 
JSR PC, TIMON 
INC (RS) 

TST TCCRS) 

BPL 2$ 

JMP TIMERCRS) 
JSR PC, WAITRDY 
BVS 994 

JSR PC, TIMOK 
BR 100$ 

HLT 

SCOPE 


> TEST 002 - WRITE START 
> THIS TST MEASURES TIME FROM ‘GO'=1 TO ‘ACCL’=6. 
TSTOO2: Py 


2: 


799: 
100%: 


HLT 
SCOPE 


#2. d# TSTNUM 


PC, WRITE 


#1%, 


R2 


PC. TIMON 


(RS) 
TCCR 
2$ 

TIME 


PC,WRITROY 


5) 
R(R3S) 


> TEST OO3- WRITE SHUTDOWN 
> THIS TEST MEASURES TIME FROM 'FC REG'=0 TO ‘SWDN'=1. 
TSTO03: MOVB 


JSR 
INC 


#3, 08 TSTNUM 


PC, WRITE 


(R5) 
(RO) 


2% 
#ERR, (R1) 
99% 


+SET TEST &# 

+SET RETURN PC FROM TIMER 
+REWIND SLAVE 

+BRANCH IF ERROR ON REWIND 
+GO SETUP WRITE COMMAND 

+ TURN TIMER ON 

+SET ‘GO’ BIT 


*BRANCH WHEN ‘ACCL ‘=0 
+GO TO TIMER & RETURN VIA RZ 
;WAiT FOR COMMAND TO FINISH 


BRANCH IF ERROR 
GO CHECK TIME 


>SET TEST # 2 

> INITIATE WRITE COMMAND 

*SET RETURN PC FROM TIMER 
-SET ‘GO’ BIT 

>BRANCH WHEN ‘ACCL*=0 

*GO TO TIMER & RETURN VIA R2 
-WAIT FOR READY 

>-BRANCH IF ERROR 

/-GO CHECK TIME RECORDED 
>EXIT VIA SCOPE 


>REPORT ERROR 


>SET TESTRS 

; INITIATE WRITE COMMAND 

SET ‘GO’ BIT 

>BRANCH WHEN WRITING FINISHED 


>MONITOR ERROR BIT 


—_—-—— = 


SEQ 0071 


Aa 


CZ 


TUGC 


007756 


007760 
067760 
007764 
007766 
007772 
007774 


010000 
010004 
010006 
010012 
010014 
010016 


010020 
010026 
010032 


010034 
010036 
010040 
010044 
010046 


010050 
010054 
010056 
010062 
010064 


010066 
010066 
010072 
010074 
010100 
010102 


010!06 
010112 
010114 
010120 


010122 
010124 


010126 
010134 
010140 
010142 
010146 


000772 


004767 
010702 
032711 
001002 
000163 


004767 
102403 
004767 
00C401 
104400 
104000 


112737 
004767 
C05215 


005710 
001404 
032711 
001026 
000772 


032711 
001004 
032711 
001017 
000771 


004767 
010702 

22711 
001402 
000163 


004767 
102493 
004 767 
000401 


104400 
104000 


112737 


012702 


174374 
000020 
004450 
175232 
174474 


O00CO04 
175372 


ON40000 


000020 
040000 


174266 
000020 
004450 
175124 
174366 


000005 
175202 


176274 
010160 


O2TUG-B TMOZ/TE16 rhe FUNCTION TIMER 
Pil O2-DEC-77 O09: 46 


MACY11 30(104%6) 
START OF TESTS 


ES EE ee eee ee ee ee ee 


H 6 
O2-DEC-77 09:48 PAGE 72 SEQ 0072 


| 
| 
BR 1$ | 
23: | 
JSR PC, TIMON > TURN TIMER ON 
MOV PC. R2 ;LOAD RETURN PC FROM TIMER | 
35: et ~ peal ;BRANCH WHEN DS <SOWN> SETS 
JMP TIMER(R3) ;GO TO TIMER & RETURN VIA RZ 
4S: JSR PC,WAITRDY ;WAIT FOR READY 
BvSs 995 ; 
JSR PC, TIMOK ;GO CHECK TIME RECORDED 
BR 100% 
995: HLT ;REPORT ERROR 
100$: SCOPE 
>; TEST O04 - WRITE SETTLEDOWN 
>; THIS TEST MEASURES TIME FROM ‘SWDON'=1 TO ‘SWON’ =O. 
901126 TSTOOW: MOVB #4, 28 TSTNUM 
JSR PC,WRITE 
INC (k5) ;SET ‘GO’ BIT 
1%: ei = ; BRANCH WHEN WRITING FINISHED 
Q 
BIT RERP, (R11) ; CHECK ERROR BIT 
BNE 9958 
BR i$ 
23: BIT oo ;WAIT FOP ASSERTION OF ‘*SOWN’ 
BNE % 
BIT #ERR,. (R11) >MONITOR ERROR BIT 
BNE 995 
BP 2$ 
35: 
JSR PC, TIMON ; TURN TIMER ON 
MOV PC.RZ ;SET RETURN PC FROM TIMER 
BiT — > BRANCH WHEN SWDN CLEARS 
BEQ 
JMP TIMERCR 3) >GO TO TIMER & RETURN VIA R2 
5S: JSR PC,WAITRDY ;WAIT FOR READY 
BYS 995 
JSR PC, TIMOK 
BP 100% 
995: HLT 
100%: SCOPE 
; TEST 005 - READ FROM BOT 
; THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘ACCL'=0. 
001126 TSTOOS: MOVB #5, d&TSTNUM ;SET TEST #5 
JSR PC,. REWIND ;REWIND SLAVE 
BYS 994 ;BRANCH IF ERROR ON REWIND 
JSR PC,READ ° 
MOV #1%,R2 ;SET RETURN PC FROM TIMEP 


C2TU 


GC. 


010152 
010156 


010160 
010164 
010166 


010172 
010176 
010200 
010204 


010206 
010210 


010212 
010220 
010224 
010226 
010232 
010236 
010242 


010244 
010250 
010252 


010256 
010262 
010264 
010270 


010272 
010274 


010276 
010304 
010310 
010312 
010316 


010320 
010324 
010326 
010332 
010334 


010336 
010336 
010342 
010344 
010350 


004767 
005215 


005765 
100002 
000163 


004767 
102403 
004767 
000401 


104400 
104000 


112737 
004767 
102422 
CO4767 
012702 
004767 
005215 


005765 
100002 
000163 


004767 
102403 
004767 
000401 


104400 
104000 


112737 
004767 
102430 
004 767 
005215 


022710 


? O09: 


174202 


000032 
004450 
175040 
174302 


000006 
175272 


175210 
010244 
174116 
000032 
004450 
174754 


174216 


000007 
175206 


175124 


000400 
040000 


174016 
000020 


OZTUG-B TMOZ2/TE16 DRIVE FUNCTION TIMER 
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001126 


001126 


MACY11 30(1046) 
START OF TESTS 


15: 


23: 


995: 


100%: 


HLT 
SCOPE 


| 6 
O2-DEC-77 09:48 PAGE 


PC, TIMON 
(R5) 
TCCRS) 

2$ 

TIMER (RS) 


PC, WAI TROY 
995 

PC, TIMOK 
100% 


> TEST 006 - READ START 


*THIS TEST MEASURES TIME FROM ‘GO'=1 TO 


TSTOOe: MOVB 


18: 


2$: 


99S: 


100%: 


HLT 
SCOPE 


#6, d#TSTNUM 
PC, WRT. BK 


TCC(RS) 

2$ 

TIMER (RS) 
PC, WAITRDY 
995 

PC, TIMOK 
100$ 


> TEST 007 - READ SHUTDOWN 


; THIS TEST MEASURES TIME FROM 


TSTOO7: MOVB 


#7, @8TSTNUM 
PC, WRT. BK 


#-FRMCNT, (RO) 
25 


RERR, (R1) 
995 
1% 


PC, TIMON 
PC,RZ 
#SDWN, (R1) 
34 


73 

TURN, LINER on 

;BRANCH WHEN ‘ACCL' RESETS 
GO TO TIMER & RETURN VIA RZ 
;WAIT FOR READY 


+BRANCH IF ERROR 
+CHECK RECORDED TIME 


"ACCL '=0. 
+SET TEST #6 
sWRITE A RECORD & BACK SPACE 


+SET RETURN PC FROM TIMER 
> TURN TIMER ON 

*SET ‘GO’ BIT 

*BRANCH WHEN ‘ACCL* RESETS 


GO TO TIMER 


"FC REG'=FRAME COUNT TO ‘SWON‘'=1. 
;SET TES 


T #7 
;WRITE A RECORD & BACK SPACE 
>BRANCH IF ERROR 


‘SET ‘GO’ BIT 


>WAIT FOR FRAME COUNT TO 
>= # OF FRAMES WRITTEN 
*MONITOR ERROR BIT 


> TURN TIMER ON 
*>SET RETURN PC FROM TIMER 
;BRANCH WHEN SDWN SETS 


& RETURN VIA RZ 


OcTUG-B TMO2/TE16 hes 
C2TUGC. P11 






010352 


010356 
010362 
010364 
010370 


010372 
010374 


010376 
010404 
010410 
010414 
010416 
010422 


010424 
010426 
010430 
010434 
010436 


010440 
010444 
010446 
010452 
010454 


010456 
010456 
010462 
010470 
010472 


010476 
010502 
010504 
010510 


010512 
010514 


O2-DEC-7 


000163 


004 767 
102403 
004767 
000401 


104400 
104000 


11273? 
012702 
004767 
102436 
004767 
005215 


105711 
100404 
032711 
001026 
000772 


032711 


001017 
000771 


004 767 
032765 
001402 
000163 


004767 


104490 
10400C 


112737 


FD hy TIMER 


7 09:4 

004450 
174654 
174116 


000010 
010462 
175102 


175020 


040000 


000020 
040000 


173676 
000020 


004450 
174534 
173776 


000011 
010562 
174670 


174474 


174174 
174704 


001126 


000012 


MACY11 30(1046) 
START OF TESTS 


33: 


995: 


1008: 


JMP 


HLT 
SCOPE 


J 
02-DEC-77 


TIMER (RS) 
PC, WAITRDY 
99% 


PC, TIMOK 
100% 


+ TEST O10 - READ SETTLEDOWN 
*>THIS TEST MEASURES TIME FROM ‘SWON'=1 TO ‘SWDN'=0. 
TSTO10: MOVE NUM 


1$: 


33: 


55: 


995: 


100%: 


HLT 
SCOPE 


#10, d08TST 
#4$,RZ 

PC, WRT. BK 
995 
PC,READ 
(R5) 

(R1) 

2$ 

#ERR, (R1) 
99% 

1% 

#SDWN, (R1) 
3$ 

#ERR, (R1) 
995 

23 

PC, TIMON 
#SDWN, OS (RS) 
55 

TIMER CR) 
PC,WAITRDY 
994% 


PC, TIMOK 
100% 


; TEST 011-READ REVERSE START 


> THIS TEST MEASURES TIME FROM ‘GO'=1 TO 
001126 TSTO11: 


MOVB 
nM 


#11, 08 TSTNUM 
#14, 
A alli 


(RS) 
PC,WAITRDOY 


99% 
PC, DELAY 
PC, REVRD 


6 
09:48 PAGE 74 


re ee ee eee 


SEQ 0074 


+GO TO TIMER & RETURN VIA RZ 


+REPORT ERROR 


+SET TEST #10 

; SET RETURN PC FROM TIMER 
+WRITE A RECORD & BACK SPACE 
+SET ‘GO’ BIT 

+WAiT FOR READY 


+BRANCH WHEN SET 
+CHECK ERROR BIT 


;WAIT FOR ASSERTION OF ‘SDWN* 
;MONITOR ERROR SIT 


> TURN TIMER ON 
>WAIT FOR NEGATION OF SDWN 


-GO TO TIMER & RETURN VIA R2 


‘ACCL *=0. 
>;SET RETURN PC FROM TIMER 


+WRITE A RECORD 
>SET 'GO' BIT 


;WAIT FOR TAPE MOTION TO STOP 


DZTUG-B TNOZ2/TE16 ORIVE FUNCTION TIMER MACY11 30(1046) 
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010554 
010560 


010562 
010566 
010570 


010574 
010600 
010602 
010606 


010610 
010612 


010676 
010700 


010704 
010710 
010712 
010716 


010720 
010722 


010724 


010756 


004767 
005215 


005765 
100002 
000163 


004767 
102403 
004767 
000401 


104400 
104000 


112737 


005215 


022710 
001404 
032711 
001016 
000771 


004767 
032-11 
001002 
000163 


004767 
102403 
004767 
060401 


104400 
104000 


112737 





O02-DEC-77 O09: 


173600 


000032 
004450 
174436 
173700 


000012 
010672 
174572 
174376 


174612 


000400 
040000 


173466 
000020 


004450 
174326 
173570 


000013 
011016 
174462 
174266 


174502 


SEQ 0075 





EO oe 


K 6 
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JSR PC, TIMON ; TURN TIMER ON 
INC (R5) ;SET ‘'GO' BIT 
1$: iy — +;BRANCH WHEN ‘ACCL' = 0 
JMP TIMERC(RS) ;GO TO TIMER & RETURN VIA RZ 
23: JSR PC,WAITROY 
BYS 995 ;BRANCH IF ERROR 
JSR PC, TIMOK 
BR 100$ 
995: HLT 
100%: SCOPE 
> TEST 012-READ REVERSE SHUTDOWN 
>THIS TEST MEASURES TIME FROM ‘FC REG’ = FRAME COUNT TO ‘SOWN‘'=1. 
001126 TST012: MOVB #12, de TSTNUM 
MoV #3%,R2 , ;SET RETURN PC FROM TIMER 
JSR PC, WRITE ,WRITE A RECORO 
INC (R5) ;SET ‘GO’ BIT 
JSR PC, WAITROY 
BYS 995 
JSR PC. REVRD 
INC (R5) ,SET ‘GO’ BIT 
1%: CMP #-FRMCNT, (RO) ; BRANCH WHEN FRAME COUNT 
BEQ 23 ;= # OF RECORD WRITTEN 
BiT RERR, (R1) ;MONITOR ERROR BIT IN ‘DS* REG 
BNE 995 
BR 1$ 
23: 
JSR PC, TIMON ; TURN TIMER ON 
35: cae ~ weet >; BRANCH WHEN SDWN SETS 
BN 4 
JMP TIMERC(RS) GO TO TIMER & RETURN VIA RZ 
4S: JSR PC,WAITRDY »,WAIT FOR READY 
BYS 995 
JSR PC, TIMOK 
BR 100$ 
995: HLT 
100%: SCOPE 
; TEST 013-READ REVERSE SETTLEDOWN 
; THIS TEST MEASURES TIME FROM ‘'SOWN'=1 TO ‘SOWN'=0. 
001126 TSTOi3: MOVB #13, d&#TSTNUM 
MoV ’ ;SET RETURN PC FROM TIMER 
JSR PC,WRITE >WRITE A RECORD 
INC (R5) >SET ‘GO* BIT 
JSR PC, WAITROY 
BYS 9953 
JSR PC, REVRD 
INC (R5) ;SET 'GO' BIT 


OZTUG-B aly * ~ DRIVE gi TIMER MACY11 30(104%6) 


CZTUG START OF TESTS 





C.P 


010760 
010762 
010764 
010770 
010772 


010774 
011000 
011002 
011006 
011010 


011012 
011012 
011016 
011022 
011024 


011030 
011034 
011036 
011042 


011044 
011046 


011050 
011050 
011054 
011056 
011060 
011062 
011064 


011064 
011072 
011076 
011:!02 
011104 
011110 


011112 
011116 
011122 


011124 
011130 
011132 


011136 
011142 
011144 


105711 
100404 
032711 
001025 
000772 


032711 
001004 
032711 
001016 
000771 


004767 
032711 
001402 
000163 


004767 
102403 
004767 
000401 


104400 
104000 


004767 
102401 
102002 
104400 
000772 


112737 


O02-DEC-77 09:4 


040000 


000020 
040000 


173342 
000020 


004450 
174202 
173444 


174266 


000014 
011124 
174322 
174126 
174342 
173236 
000032 
004450 
174074 
173336 


001126 


1S: 


25: 


33: 
4S: 


59: 


995: 


100S8: 
> REWIND 
Fh 


9993: 


100%: 


HLT 
SCOPE 


DRIVE 


L 6 
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(R1) 

2% 

WERR, (R1) 
995% 

1% 

RSOWN, (R1) 
3$ 

ERR, (R1) 
99% 

2$ 

PC, TIMON 
#SDWN, (R1) 
5% 

TIMER (RS) 
PC, WAITRDY 
994 

PC, TIMOK 
100$ 


PC.. 
99% 
100% 


REWIND 


PAGE 


76 SEQ 0076 


+BRANCH WHEN 
‘+READY SETS 


+ TURN TIMER ON 
+BRANCH WHEN SWON = 0 


+GO TO TIMER & RETURN VIA RZ 
;WAIT FOR READY 


;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


> TEST O14-TURN AROUND DELAY (Ff ORWARD-REVERSE ) 
> THIS TEST MEASURES TIME FROM ‘GO'=1 (READ REVERSE) TO ‘ACCL‘=0 
TSTO14: MOVB 


3S: 


#14. ae TSTNUM 


PC, WRITE 


(RS) 
PC, WRITROY 
995 


PC, REVRD 
Pc, TIMON 
(R5) 
TC(RS) 

3% 

TIMER (RS) 
PC, WAITRDY 


995 
PC, TIMOK 


>SET RETURN PC FROM TIMER 
*WRITE A RECORD 
*SET ‘GO’ BIT 


-READ THE RECORD (REVERSE) 
> TURN TIMER ON 

+SET ‘GO’ BIT 

;WAIT FOR ‘ACCL' = Q 


*GO TO TIMER & RETURN VIA R2 


DZTUG-B8 et ae DRIVE 


CZ2TUGC 


011150 


011152 
011154 


011156 


011210 


011212 
011216 


011220 
011224 
011230 


011232 
011236 
011240 


011244 
011250 
011252 
011256 


011260 
011262 


611264 
011272 
011276 
011302 
011304 
011310 
011312 
011316 
011322 
011326 


011330 
011332 
011334 


011340 
011344 
011346 
011352 


02-DEC-7 


000401 


104400 
104000 


112737 
012702 
004767 
005215 
004767 
102426 
004 767 
005215 


004767 
102420 


004767 
004767 
005215 


005765 
100002 
000163 


004767 
102403 
004% 767 
000401 


104400 
104000 


112737 


? O9: 


000015 
011232 
174230 
174034 


174250 


174020 


174216 
173130 
000032 
004450 
173766 
173230 


000016 
011330 
174122 
173726 
173426 


174136 
173032 


004450 
173672 
173134 


001126 


001126 


FUNCTION TIMER MACY11 30(104%6) 
46 START OF TESTS 


995: HLT 
100$: SCOPE 


M 6 
O2-DEC-77 09:48 PAGE 77 


100% 


*TEST O15- TURN AROUND DELAY (REVERSE~F ORWARD) 
+ THIS ie ae TIME FROM ‘GO'=1 (READ) TO ‘ACCL ‘=O. 


TSTOIS 


1$: JSR 


23: TST 


33: JSR 


995: HLT 
160%: SCOPE 


> TEST 016-GAP SIZE (STOP HALF) 


TSTO16: MOVB 


1%: TST 


25: JSR 


+) at Ml UM 
PC, WRITE 
(R5) 
PC,WAITRDY 
99§$ 
PC,REVRD 
(R5) 
PC,WAITRDY 
9959 
PC, READ 
PC, TIMON 
CR5) 
TC(RS) 
3$ 
TIMER(R) 
PC. Ki TRDY 
95 


9 
PC, TIMOK 
100$ 


#16, d& TSTNUN 
#14, 

PC, WRITE 
(R5) 
PC,WAITROY 
994 

PC, DELAY 

PC, REVROD 


PC, TIMON 
(R5) 


(RO) 


2% 
TIMER CRS) 
ae 


99 
PC, TIMOK 
100% 


+SET RETURN PC FROM TIMER 
/WRITE A RECORD 

+SET ‘GO’ BIT 

WAIT FOR READY 


+READ A ae IN THE 
+SET ‘GO’ BIT 


;READ RECORD FORWARD 
; TURN TIMER ON 
;SET ‘GO’ BIT 
;WAIT FOR ‘ACCL’' = 0 


;GO TO TIMER & RETURN VIA RZ 


>SET RETURN PC FROM TIMER 
-WRITE A RECORD 
*SET ‘GO’ BIT 


+DELAY 350 MS 

READ REVERSE RECORD 

; TURN TIMER ON 

>SET 'GO' BIT 

;WA!'T FOR FRAME COUNT > O 
>GO TO TIMER & RETURN VIA RZ 


>WAIT FOR READY BIT TO SET 


'; CHECK TIME 





_—_ "7 


DZTUG-B TMNOZ2/TE16 ORIVE 


CZTUG 02-DEC-77 


C. Pil 


011354 
011356 


011360 
011366 
011372 
011376 
011400 
011404 
011406 
011412 
011414 
011420 
011422 
011426 
011432 
011436 


011440 
011442 
C11444 


011450 
011454 
011456 
011462 


011464 
C11466 


011470 
011476 
011502 
011506 
011510 
011514 
011516 
011522 
011524 
011530 
011532 
011536 
011540 
011544 
011546 
011552 
011556 


011560 
011562 
011564 


011570 


10440/ 
104000 


112737 
012702 
004767 
005215 
004767 
102427 
004767 
005215 
004767 
102421 
004767 
004767 
004767 
005215 


005710 
001002 
000163 
004767 
102403 
004767 
000401 


104400 
104000 


112737 


006163 
004767 


(cn TIMER MACY11 3001046) 


000017 
011440 
174026 
173632 
174046 
173616 
173316 


174010 
172722 


004450 
173562 
173024 


000020 
011560 
173716 
173522 
173702 
173506 
173722 
173472 


173706 
172602 


004450 
173442 


cee ne 


N 6 
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START OF TESTS 


995: HLT 

100$: SCOPE 

+ TEST 017-GAP SIZE (START HALF) 

001126 TSTOI?: MOVB na 

MOV #1%,R2 
JSR PC, WRITE 
INC (R5) 
JSR PC, WAITRDY 
BYS 99% 
JSR PC, REVRD 
INC (RS) 
JSR PC, WAITRDY 
BVS 995 
JSR PC, DELAY 
JSR PC, READ 
JSR PC, TIMON 
INC (RS) 

1$: TST (RO) 
BNE 25 
JMP TIMERCR3) 

23: JSR PC,WAITRDY 
BySs 998 
JSR PC, TIMOK 
BR 100$ 

995: HLT 

100%: SCOPE 


> TEST O20- GAP SIZE CINTERRECORD) 
> THIS TEST MEASURES TIME FROM ‘GO'=1 TO 


001126 TSTO20: MOVB #20. dé TSTNUM 

MOV #15, 
JSR PC, WRITE 
INC (RS) 
JSR PC, WAITRDY 
BVS 995% 
JSR PC. WRITE 
INC (R5) 
JSR PC, WAITRDY 
BVS 99% 
JSR PC, REVRD 
INC (R5) 
JSR PC, WAITRDY 
BVS 99% 
JSR PC, REVRD 
JSR PC, TIMON 
INC (R5) 

1$: TST (RO) 
BNE 2% 
JMP TIMERCRS) 

2%: JSR PC, WAITRDY 


--_-e- ros 


78 SEQ 0078 


+SET RETURN PC FROM TIMER 
sWRITE A RECORD 

+SET ‘GO’ BIT 

;WAIT FOR READY 


;READ REVERSE THE RECORD 
;SET ‘GO’ BIT 

WAIT FOR READY 

;BRANCH ON ERROR 

;WAIT FOR TAPE MOTION TO STOP 
;READ RECORD 

; TURN TIMER ON 

;SET ‘GO’ BIT 

;WAIiT FOR FRAME COUNT > O 
;GO TO TIMER & RETURN VIA RZ 
;WAIT FOR READY 


; CHECK TIME 


‘FC REG’ >0. 


+SET RETURN PC FROM TIMER 
*WRITE A RECORD 

*SET ‘GO’ BIT 

+WAIT FOR READY 

>WRITE SECOND RECORD 

+SET *GO' BIT 

*WAIT FOR READY 

*READ REVERSE SECOND RECORD 
+SET ‘GO’ BIT 

>WAIT FOR READY 

+READ REVERSE FIRST RECORD 

> TURN TIMER ON 

*SET ‘'GO* BIT 

;WAIT FOR FRAME COUNT > O 
/GO TO TIMER & RETURN VIA RZ 


>WAIT FOR READY 
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011574 
011576 
011602 


011604 
011606 


011610 
011616 
011622 
011626 
011630 
011634 
011640 
011644 
011646 
011652 
011654 
011660 
011666 
011670 


011672 
011676 
011702 
011704 
011710 
011712 
011714 


011716 
011722 
011726 
011732 


011734 
011740 
011742 
011746 
011752 


011754 
011760 
011762 


004767 
000401 


104400 
104000 


112737 


061363 
012700 


001370 
012790 


000163 


O2-DEC-77 09: 
102403 


172704 


000021 
011754 
173514 
167264 
000021 
173560 
173364 


173114 
000022 


000021 
173556 


173326 


000020 
001060 
173510 
173276 
173474 
172406 
000006 
004450 


001126 


167232 


MACY11 3001046) 
START OF TESTS 


BYS 99$ 
JSR PC, TIMOK 
BR 100$ 
995: HLT 
100$: SCOPE 


TEST O21- GAP CONSISTANCY 


. 
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+THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘FC REG’ > O. 
*THE TEST REWINDS THE TAPE.WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 


*BE TWEEN EACH WRITE COMMAND. AFTER T 


HE 17. RECORDS ARE WRITTTEN THE 


*PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
A READ COMMAND 


> TWEEN THE FIRST AND SECOND RECORD. 
>THE 16 RECOROS WITH THE TIME BETEWEN GO=1 TO FC > 


1S EXECUTED TO READ 
O STORED IN ‘GAPTBL’ 


*FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN. READ THE TIME IS VER- 
> IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 


*AGED AND PLACED IN THE ‘'ATIMTBL’ (BY SCOPE). 


>PEATED FOR EACH ITERATION. 


TSTO2Z1: MOVB #21, A TSTNUM 
MOV #4$,RZ 
JSR PC,. REWIND 
BVS 99$% 
CLR DELTINM 
MoV #17. -R0 
INC (R5) 
JSR PC, WAITRDY 
BVS 995 
JSR PC, DELAYY 
ADD #18.,DELTINM 
DEC RO 
BNE 1% 
MoV #17.,.R0 
23: JSR PC,REVRD 
INC (R5) 
JSR PC, WAITRDY 
BvS 995% 
DEC RO 
BNE 2% 
MOV #16. ,R0 
MoV #GAPTBL.R1 
JSR PC, READ 
INC (R5) 
3%: JSR PC,WAITRDY 
BVS 999 
JSR PC,READ 
JSR PC, TIMON 
INC (R5) 
4S: TST FCCRS) 
BNE 55 
JMP TIMERCRS) 


THE ABOVE PROCESS IS RE- 


+SET RETURN PC FROM TIMER 
*REWIND SLAVE 

*BRANCH IF ERROR ON REWIND 
+CLEAR VARIABLE DELAY TIME 
+SET # OF RECORDS TO WRITE 
;WRITE 17. RECORDS 

*SET ‘GO’ BIT 

;WAIT FOR READY 


>DELAY BEFORE WRITING NEXT REC. 
+SET NEXT DELAY TIME 
*DECREMENT RECORDS WRITTEN COUNT 


SET # OF RECS. TO REVERSE READ 
;REVERSE READ 17. RECORDS 

;SET ‘GO’ BIT 

;WAIT FOR READY 

;DECREMENT RECORD COUNT 

>SET # OF RECORDS TO READ 

;SET PTR TO GAP TABLE FOR TEST 
;READ A RECORD 

>SET ‘GO' BIT 

;WAIT FOR READY 

;READ NEXT RECORD 

; TURN TIMER ON 

>SET ‘'GO' BIT 

;WAIT FOR FRAME COUNT > 0 

;GO0 TO TIMER & RETURN VIA R2 


SEQ 0079 | 


DZTUG-B a OR I VE — TIMER 


CZ2TUG 


L. ? 


011766 
011772 
011774 
011776 
012600 


012002 
012006 
012012 


012016 
012020 
012024 
012030 
012036 


012040 
012044 
012050 
012052 
012054 
012056 
012060 
012062 
012064 
012070 
012072 
012074 
012076 
012100 
012102 
012106 


012110 
012112 


012114 


012122 
912130 


012160 
012164 


004767 
102446 
010421 
005300 
001355 


105037 
012700 
012701 


012104 
004767 
105237 
122737 
001367 


012700 
012701 
005002 
005003 
062102 
005503 
005300 
001274 
0127006 
006203 
006002 
005300 
001374 
010204 
004767 
000401 


104400 
104000 


112737 


112737 
012702 


022710 
001004 
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173244 


001124 
000020 
001060 


172572 
001124 
000020 


000020 
001060 


000004 


172400 


000022 


000023 
012202 
173202 


173412 


174700 


001124 


001126 


001126 


MACY11 30(1046) 
START OF TESTS 


55: JSR 


6$: MOV 


7%: ADD 


83: ASR 


995: HLT 
100%: SCOPE 


. #£ 
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PC, WAI TROY 
995 

R4, (R1)¢ 
RO 

3$ 


0# GAP 
#16. ,RO 
#GAPTBL, R1 


(R1)+,R4 
PC, GAPOK 
a# GAP 
#16. . d#GRP 
6$ 


#16. ,R0 
RGAPTBL,R1 
R2 


R3 
(R1)+,RZ 
R 


> TEST O22-DUNMY TEST 
> THIS TEST MEASURES NOTHING 


TSTOZ2: MOVB 


822. dR TSTNUM 


> TEST O23-DATA TIME (2Z200B8P 1) 
> THIS TEST MEASURES TIME FROM ‘FC REG’ CHANGES TO ‘RDY'=1. 


TSTO23: So 


1$: CMP 


#23. a8 TSTNUM 
#33,RZ 

PC,. REWIND 
995 


*WAIT FOR READY 


+STORE TIME IN GAPTBL 
*DECREMENT # OF RECORDS READ 


+SET GAP # 0 


;GET GAP TICK COUNT 
; CHECK TIME 

; INCREMENT GAP # 

;BRANCH IF ALL GAPS NOT CHECKED 


+SETUP TO AVERAGE GAP SIZES 
+SET PTR TO TABLE 
*CLEAR ‘SUM’ REGISTERS 


>ADD ALL GAP SIZES TOGETHER 


+NOW DIVIDE BY 16. 
*BY SHIFTING 4 PLACES RIGHT 


+MOVE AVERAGED TIMES TO R4 
*CHECK AVERAGED TIMES 


;SET RETURN PC FROM TIMER 
>REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
7;WR!ITE 800 WORD RECORD 
>SET WRITE BUFFER ADDRESS 
*>WORD COUNT 

;FRAME COUNT 

;WRITE COMMAND 

;SET ‘GO’ BIT 


*;WAIT FOR FRAME COUNT TO CHANGE 


AS 


a 


D 7? 
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SEQ 0081 4 





3302 012166 032711 040000 BIT MERR, (R1) *MONITOR ERROR BIT 
3303 012172 001022 BNE 995 
3304 012174 000771 BR 1$ 
3305 
3306 012176 2$: 
3307 012176 OO4767 172156 JSR PC. TIMON + TURN TIMER ON 
3308 012202 105711 3$: TSTB (R1) ;WAIT FOR READY TO SET 
3309 012204 100402 BM! 4§ 
3310 012206 000163 004450 JMP TIMER (RS) +GO TO TIMER & RETURN VIA RZ 
3311 012212 012700 d00003 4S: MOV #3,.R0 /SET TO DIVIDE BY 8 
3312 012216 006204 55: ASR RY t +BY SHIFTING RIGHT 3 PLACES 
3313 012220 905300 DEC RO 
3314 012222 001375 BNE 5$ 
3315 012224 OQ04%767 173006 JSR PC,WAITRDY 
3316 012230 102403 BVS 995 
331? 012232 O04767 172250 JSR PC, TIMOK +CHECK TIME 
ae 012236 9000401 BR 100% 
1 
3320 01224C 104400 998: HLT 
ae 012242 104000 1008: SCOPE 
3323 > TEST O24-DATA TIME (556BP 1) 
3324 012244 112737 Q00024 001126 TSTOZ4: MOVB #24, 08TSTNUM 
$325 012252 012702 012332 MoV #3%.R2 +SET RETURN PC FROM TIMER 
3326 012256 OU4%767 173060 JSR PC,. REWIND +REWIND SLAVE 
3327 012262 102442 BVS 99% +BRANCH IF ERROR ON REWIND 
3328 012264 052765 000700 00032 BIS MBPISSE+NORN11,TC(RS) ;LOAD TAPE CONTROL REGISTER 
3329 012272 CO436? 173262 JSR R3, THCND +WRITE 2224. WORD RECORD 
3330 012276 016420 WORD WTBUF 
3331 012300 1735520 WORD ~-2224 
3332 012302 167240 WORD -4448 
3333 012304 000060 WORD WFWD 
a 012306 005215 INC (R5) >SET ‘GO’ BIT 
3 
3336 012310 022710 167240 1$: CMP #-4448., (RO) *BRANCH WHEN WRITING BEGINS 
3337 012314 001004 BNE 2$ 
3338 012316 032711 040000 BIT RERR, (R1) +MONITOR ERROR BIT 
3339 012322 001022 BNE 995 
3340 012324 000771 BR 1% 
3341 
3342 012326 ZS: 
3343 012326 004767. 172026 JSR PC, TIMON > TURN TIMER ON 
39: TSTB i >BRANCH WHEN READY SETS 
BNI 4 
004450 JMP TIMERCRS) *GO TO TIMER & RETURN VIA R2 
GO00003 4S: MoV #3,R0 >SET SHIFT COUNT 
5S: ASR RY 
DEC RO 
BNE 5% 
172656 JSR PC, WAITRDY 
BYS 99% 
172120 JSR PC, TIMOK >CHECK TIME 
BR 100% 
3357 012370 104400 99%: HLT 


DZTUG-8 


C2TUGC. 


TMO2/T 
Pil 


012372 


012374 
012402 


012436 


012440 
012444 
012446 
012452 
012454 


012456 
012456 
012462 
012464 
012466 


012472 


012520 
012522 


012524 


012576 
012602 


E16 ORIVE 
O02-DEC-77 O09 


104000 


11273? 
012702 


005215 


022710 
001004 
032711 
001022 
000771 


004767 
105711 
100402 
000163 


012700 
006204 
005300 
001375 
004767 
102403 
004767 
000401 


104400 
104000 


112737 


022710 
001004 


000025 
012462 
172730 


001300 
173132 


163400 
040000 


171676 


004450 
000003 


172526 
171770 


000026 
001133 


012620 
172572 


602300 
172774 


163400 


FUNCTION TIMER 
: 46 


001126 


000032 


000032 


100$: 


MACY11 30(104%6) 
START OF TESTS 


SCOPE 


7 . 
O2-DEC-77 09:48 PAGE 


* TEST O25-DATA TIME (800BP |) 
TSTO2Z5: MOVB 


1$: 


995: 
1008: 


HLT 
SCOPE 


#025, a#TSTNUM 
83S,R2 

PC,. REWIND 
995 

SBP | SOO+NORM11, TC(RS) 
R3. THCMD 
WTBUF 

- 3200. 

-6400. 

WF WD 

(R5) 

#-6400. . (RO) 
2% 

RERR, (R1) 

995 

1% 

PC, TIMON 

(R1) 


4§$ 
TIMER (RS) 


5 
PC,WAITROY 
994 

PC, TIMOK 
100% 


> TEST 026-DATA TIME (1600B8P 1) 
001126 TSTO26: MOVB 


#026. d# TSTNUNM 
@ENRZFLG 
TST027 

#3%,RZ 

PC,. REWIND 


995 
#PE160O+NORN11, TCCRS) 
R3, THCMD 


#-6400., (RO) 
2% 


82 


+SET RETURN PC FROM TIMER 
*+REWIND SLAVE 

*+BRANCH IF ERROR ON REWIND 
;SET 800 BPI 


;WRITE 3200. WORD RECORD 


+SET ‘GO’ BIT 
;WAIT FOR WRITING TO START 
+MONITOR ERROR BIT 


+ TURN TIMER ON 
BRANCH WHEN READY SETS 


-GO TO TIMER & RETURN VIA RZ 
;SET SHIFT COUNT 


> CHECK TIME 


>BRANCH IF DRIVE ‘NRZ ONLY’ 


;SET RETURN PC FROM TIMER 
*REWIND SLAVE 

>BRANCH IF ERROR ON REWIND 
>SET 1600 BPI 

;WRITE 3200. WORD RECORD 


>SET ‘GO’ BIT 
>;BRANCH WHEN WRITING STARTS 


SEQ 0082 


Mo 


OZTUG-B ar i OR I VE 


CZTUGC. P O02-DEC-77 


3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 


012604 
012610 
012612 


012614 
012614 
012620 
012622 
012624 


012630 
012632 
012634 
012640 
012642 
012646 


012650 
012652 


012654 


012710 
012712 
012714 


012720 
012724 
012726 
012732 


012734 
012736 


012740 
012746 
012752 
012756 
012760 
012764 
012766 
012772 
012774 
012776 


032711 
001017 
000771 


004767 
105711 
100402 
000163 


006204 


000401 


104400 
104000 


112737 


105711 
100402 
000163 


004 767 
102403 
004767 
000401 


104400 
104090 


112737 


09: 
040000 


171540 


004450 


172376 
171640 


000027 
012710 
005560 


171452 


004450 
172312 
171554 


C00030 
013010 
172446 
172252 


005560 


001126 


23: 
33: 


4S: 


995: 


1008: 


TEST O27-ERASE 
*THIS TST MEASURES TIME FROM ‘'GO'=1 


FUNCTION TIMER MACY11 30(104%6) 
46 START OF TESTS 


BIT 
BNE 
BR 


HLT 
SCOPE 


TSTO27: MOVB 


1$: 


2$: 


995: 


1005: 


HLT 
SCOPE 


= 
O2-DEC-77 09: 48 


WERR, (R1) 
994% 


1$ 


PC, TIMON 
(R1) 


4§ 
TIMERCRS) 


RY 

RY 

PC, WAITRDY 
995% 

PC, TIMOK 
100% 


#27, 8 TSTNUM 
1$,R2Z 

RS, A#TNCND 

0 

0 

0 

ERASE 

PC, TIMON 
(R5) 

(Ri) 

2$ 

TIMER (RS) 


ala 


> TEST-O30 TAPE MARK 


> THIS TEST MEASURES TIME FROM ‘GO'=1 TO 


001126 TSTO30: MOVB 


#30, d#TSTNUM 
#1%,R2 

PC, WRITE 
(R5) 

PC, WAITROY 


99% 
R3, a8 THCMD 


2 


PAGE 83 SEQ 0083 


+MONITOR ERROR BIT 


+ TURN TIMER ON 
+BRANCH WHEN READY SETS 


+GO TO TIMER & RETURN VIA RZ 
*DIVIDE TIME BY 4 


+CHECK TIME 


TO ‘'RDY*=1. 
> SET RETURN PC FROM TIMER 


> TURN TIMER ON 
*SET ‘GO’ BIT 


BRANCH WHEN READY SETS 
/GO TO TIMER & RETURN VIA RZ 


"ROY *=1. 


>SET RETURN PC FROM TIMER 
;WRITE A RECORD 
;SET ‘GO’ Bit 


OZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
11 O02-DEC-77 O09: 46 


000026 


CZTUGC. P 


3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
S485 
3436 
34S? 
3485 


013000 
013002 
013006 


013010 
013012 
013014 


013020 
013024 
013026 
013032 


013034 
015036 
013036 
013042 
C1044 


004767 


005215 


105711 
100402 
000163 


004767 
102403 
004767 
000401 


104400 
004767 


102774 
104000 


171352 


004450 
172212 
171454 


172300 


START OF TESTS 


15: 


23: 


993: 


100%: 


G ? 
O2-DEC-77 09:48 


WF MK 
PC, TIMON 
(R5) 


(R1) 
Z 


$ 
TIMER(RS) 
PC, WAITRDY 
99% 

PC, TIMOK 
100% 


PC,. 
99% 


REWIND 


84 SEQ 0084 


+ TURN TIMER ON 
‘SET 'GO' BIT 


+BRANCH WHEN READY SETS 
+GO TO TIMER & RETURN VIA RZ 


;REWIND SLAVE 
;BRANCH iF ERROR ON REWIND 


-—- 


Oi 


OZ2ZTUG-B TMOZ2/TE16 DRIVE 


CZTUGC. P O2-DEC-77 


3489 


11 
013046 


013142 
013146 
013154 
013156 


013162 


013162 
013166 
013170 
012174 
013176 
013202 
013206 
013210 
013214 
013216 


013222 


013274 


012700 


122737 
001402 
000137 


005767 













006240 
000240 


FUNCTION TIMER 


09: 46 


000012 
001400 


000100 


001010 
001011 
001012 
007440 
001011 
001012 
000010 


007206 
001011 
001010 
000010 


007206 


165576 
001131 


014567 
005730 


166560 
005730 


014014 
165552 
001004 
167372 
165534 


165526 
000042 


165710 


001011 


001010 


7 —_—- -- + > + ee ee - eee —— - - 
— —— ———_——— eee ee ee ee eee ee oe —- —_—-— 


H 7 
MACY11 3001046) O02-DEC-77 09:48 PAGE 85 


START OF TESTS 


FINISH: MOV #10. .R0 *+SET LINE FEED COUNT 
1$: TYPE, CRLF 

DEC RO 

BNE 1$ 

BIT RSWO6, ASHR 

BEQ 2 


$ 
MOVB 2 ORVNUNM, RO 
MOVB O#SLVNUM, R1 
MOVB OESLVPTR, RZ 
JMP a# TYPHOR 


z$ INCE a#SLVNUM +SET NEXT SLAVE & 
INC OFSLVPTR +AND ITS POINTER 
oy —— +BRANCH IF LAST SLAVE (7) 
JMP d#BEGIN +BEGIN TEST ON NEXT SLAVE 
35: CLRB d#SLVNUM +SET SLAVE #0 


AND INCREMENT DRIVE & 
*AND CHECK IF LAST DRIVE 


INCB d# OR VNUM 
CMPB #8. , d#ORVNUM 
END 


BEQ 
JMP @* BEGIN 
END: 
KKFAKKEKK MODIFIED 8-11-77 KERKKKARESAAAAE ASAE AAA EATS 
ACT11 END OF PASS 
+ 
+ 
TST AUTOM ;AUTOMATIC MODE? 
BNE 2$ >BRANCH - IF YES 
TSTB aeUNTFND >BRANCH iF A UNIT WAS FOUND 
BNE 1$ 
TYPE.E. UNIT 
JMP OF INIT 
1$: HALT 
JSR PC, CKSWR >CHECK FOR CNTL G 
RESET 
JMP ae INIT >RESTART 
23: TYPE. MSGA >;PRINT END OF PASS 
INC PCNTR >BUMP PASS COUNTER 
MOV @ePCNTR, RZ >GET END OF PASS COUNT 
JSR PC, TYPOCT ;AND TYPE IT 
TST PAFLG >PASS INDICATOR SET? 
BNE 33 >BRANCH - IF YES 
INC PAFLG >SET PASS INDICATOR 
33: MOV a#42,R4 ; CONTENTS OF 42 TO RY 
BEQ HERE >;BRANCH IF NOT AUTO MODE 


RESET *CLEAR THE WORLD 
SENDAD: JSR PC, (RY) >RETURN TO MONITOR 


HERE: 


SEQ 0085 = 


VO 


gies -B TMOZ2/TE16 DRIVE — TIMER MACY11 30(104%6) 


TUGC. P11 


013274 
013300 
013302 
013310 
013312 
013314 
013320 
013322 


005767 
001010 
032777 
001004 
000000 
004767 
000005 
000137 


O02-DEC-77 O09 


165464 
094000 


166454 
005730 


165470 


15: 


—_— Eee em om «eee ee 


ee. 
O2-DEC-77 09:48 PAGE 86 SEQ 0086 


START OF TESTS 


TST AUTON +CHECK FOR AUTOM MODE 
BNE 1$ +BRANCH - IF YES 

BiT #4000. dSWR ‘+SEE IF HALT ON PASS 
BNE 1$ *+BRANCH - IF NOT 

HALT 

JSR PC, CKSWR +CHECK FOR CONTOL G 
RESET 


*CLEAR THE WORLD 
JMP: dF INIT +RESTART 


KAKA KKAKA KAKA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA 


— 
| 


neal 


mon 


OZTUG-B TMOZ/TE16 DRIVE 


C2T 02-DEC-77 


UGC. 


P11 


013326 


013334 
013342 
013346 
013352 
013354 
013362 
013370 
013374 
013376 
013400 
013402 
013404 


013406 
013412 


013414 
013420 
013424 
013426 


013432 


013454 


013456 
013460 


013462 
013470 


012737 


112737 
012702 
004767 
102441 
052765 
052765 
004 337 
016420 
177777 
063440 
000070 
005215 


C22710 
101375 


004767 
023710 
103402 
000163 


012700 
006204 
005300 
001375 
004767 
004767 
000401 


104400 
104000 


112737 


FUNCTION TIMER 


09: 46 


013334 


000031 
013420 
171770 


001300 


000010 
005560 


001440 
170740 
013400 
004450 
000005 


171530 
171032 


060032 
013616 
171642 


001300 
000010 
005560 


001006 


001126 


000032 
000010 


001126 


000032 
000010 


MACY11 30(1046) 
START OF TESTS 


_———L ee ee ee ee 


J 7? 
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+SKEW TAPE TIMING TESTS 
*THE FOLLOWING TESTS REQUIRE A SPECIALLY WRITTEN 800 BP! SKEW TAPE 


SKEWTST: MOV 


#TSTOS1,. D#SCPADR 


*TEST O3i- SKEW TAPE SPEED TEST-FORWARD 
*THIS TEST READS 32" OF TAP 


E (26400. -800. 


*+SET SCOPE POINTER 


= 25600. FRAMES), THEN 


sDIVIDES TIME BY 32. TO GET TIME TO READ 1" (800. FRAMES) OF TAPE. 


TSTO31: i 


105: WORD 
1%: CMP 


23: CMP 


4S: ASR 


995: HLT 
1008: SCOPE 


> TEST O32-SKEW TAPE SPEED TEST-REVERSE 


831. 0 TSTNUM 
#2$,R2 

PC,. REWIND 
995 


#BP ISOO+NORM11, TCC(RS) 
RBA, CSZ(R5) 

R3. O#TMCMD 

= seed 

26400. 

RDF WD 

(R5) 


#800. . (RO) 
1$ 

PC. TIMON 
0#i0$, (RO) 
3$ 
TIMER(RS) 


PC, RHINIT 
PC, TIMOK 
100$ 


+SET RETURN PC FROM TIMER 
*REWIND SLAVE 

+BRANCH IF ERROR ON REWIND 
SET 800 BPI 

+ INHIBIT BUS ADDRESS INCREMENT 
+READ 32" OF TAPE-FORWARD 


;FRAME COUNT 
+SET *GO' BIT 


*WAIT FOR FIRST 800 FRAMES 
>TO BE READ 


> TURN TIMER ON 
;WAIT FOR READING TO FINISH 


+GO TO TIMER & RETURN VIA RZ 
;DIVIDE TIME BY 32. 


> INIT DRIVE 
> CHECK TIME 


> THIS TEST READS FORWARD 40” (32000. FRAMES) OF TAPE. THEN READS REVERSE 


+32" (26400. -800. 


= 25600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 


>32. TO GET TIME TO READ 1" (800. FRAMES) OF TAPE. 


TSTO32: — 


10S: WORD 


#32. 98 TSTNUM © 
#5%,RZ 3 
PC,. REWIND 
99% 


#BP 1SOO+NORM11, TCCRS) 
#BAI,CSZ(R5) 
R3, 08 THCND 

ROBUF 


;SET RETURN PC FROM TIMER 
REWIND SLAVE 
>BRANCH IF ERROR ON REWIND 


*READ FORWARD 32000. FRAMES 


;WORD COUNT 
>FRAME COUNT 
;READ FORWARD 
;SET 'GO' BIT 


SEQ 0087 


~ 


No 


OZTUG-8 TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
C2T 46 START OF TESTS 


UGC. P11 


013534 
013540 


013542 
013546 
013552 
013560 
013566 
013572 
013574 
013576 
013600 
013602 


013604 
013610 


013612 
013616 
013622 
013624 


013630 
013634 
013636 
013640 
013642 
013646 
013652 


013654 
013656 
013656 
013662 
013664 


01 3666 


023710 
101375 


004767 
004767 
052765 
952765 
C04 337 
G164%20 
177777 
063440 
000076 
00&215 


022710 
101375 


004767 
023710 
103402 
CO00163 


012700 
006204 
005300 
001375 
004767 
004767 
000401 


104400 
004767 
102774 
104000 


000137 


O2-DEC-77 09: 


013526 


171432 
171172 
001300 
000010 
005560 


001440 
170542 
613576 
004450 
000005 


171332 
170634 


171460 


013046 


000032 
000010 


1$: 


113: 


23: 


3$: 


4S: 


53: 


995: 


1008: 


. ¢ 
O2-DEC-77 09:48 PAGE 
0#105, (RO) 
1$ 


PC, RHINIT 

PC, DELAY 

BP I SOO+NORM11, TCCRS) 
BAI, CSZ(R5) 

R3. O#TNCND 

anal 

26400. 

ROREV 

(R5) 


#800. , (RO) 
2$ 

PC, TIMON 
#115, (RO) 
4% 

TIMER (RS) 
#5,R0 

RY 

RO 

5% 

PC, RHINIT 


PC. TIMOK 
100% 


PC,. REWIND 
999 


anf INISH 


> INIT DRIVE 

;WAIT FOR TAPE MOTION TO STOP 
;SET 800 BPI 

; INHIBIT BUS ADDRESS INCRENENT 
;READ REVERSE 32” OF TAPE 
;READ BUFFER 

;WORD COUNT 

;FRAME COUNT 

;READ REVERSE 

;SET ‘'GO' BIT 


+;WAIT FOR FIRST 800 FRAMES 
+T0 BE READ 


+ TURN TIMER ON 
;WAIT FOR ALL FRAMES TO BE READ 


>GO TO TIMER & RETURN VIA RZ 
;DIVIDE TIME BY 32. 


>;REWIND SLAVE 
>;BRANCH IF ERROR ON REWIND 


SEQ 0088 





gts -B a ae DRIVE — TIMER 


TUGC. P 


013672 
013676 
013702 
013704 
013710 
013716 
013720 
013724 
013726 
013732 
013740 
013742 
013746 
013750 
013754 
013756 
013762 


005067 


O2-DEC-77 O09: 4 


165066 
000042 


165054 
000042 


16504 3 


165034 
104100 


000041 
165014 
165007 


000046 


165040 


MACY11 30(1046) 
START OF TESTS 


CKMODE: 


1$: 


23: 


33: 
5S: 


eS. 
O2-DEC-77 09:48 PAGE 89 


KXXKKXKINSERTED 11-8-77 KXXAKARASAAAAA AAA AAA AAA AAA KAS 
CHECK FOR DUMP MODE OR AUTOMATIC MOCE 


AUTON 
a#42 
2$ 


AUTOM 
0842, DF46 
1$ 


XXDPM 
5$ 
ACT11 
o#41 
3$ 
ADUNPN 
53 
XDUMPM 
PC 


M 
#104100, dSWR 
55 


+ INIT AUTO MODE 





8 S 

; INDICATE XXOP AUTO MODE 

;AND EXIT 

INDICATE ACT11 AUTO MODE 

= — ON ERROR. INHIBIT SUBTEST 
* MAN: MODE VIA oe TAPE? 

; INDICATE MAN: MODE VIA ACTI1/PAPER TAPE 











;AND EXIT 
; INDICATE MANUAL MODE VIA XxXDP 
; RETURN 


KXKKEKARAR AAA AAA AAA AAA E AA AA AAA AAA AA AAA AAA AA AAA AA AAA EAE TE 


SEQ 0089 





AAAANANANAN AO 


<—- 


oooc0o00°oo0mrnan 


[ToOC09EC0CSo gsoorgo 


DZTUG-B TMOZ/TE16 ORIVE FUNCTION TIMER MACY11 30(1046) O02-DEC-77 09:48 PAGE 90 


C2TUGC. P11 


013764 
013764 
013766 
013772 
013776 
014000 
014004 
014010 
014012 


000005 
000004 
105767 
001405 
013700 
005037 
004710 
000777 


O2-DEC-77 09: 46 


014036 — 


164771 


000042 
000042 


START OF TESTS 


ABORT: 


15: 


RXXKERKK INSERTED 11-88-77 EXXKEAEAAA AAA AAA AAA AAA AAA EE EEE 
DISCONTINUE TESTING FOR 
ILLEGAL CONDITIONS 


T + INITIALIZE THE WORLD 
TYPE. MSGB + TYPE ABORT MESSAGE 
XXDP I +*XDP AUTO MODE 
BEQ 1$ +BRANCH - IF NOT 
MOV a#42,R0 +GET MONITOR EXIT ADDRESS 
CLR a#42 +USE AS ABORT FLAG 


,EXIT TO XXDP MONITOR 
BR +AND HANG 


XKKKAKAAKK AAA KAKA KAKA AKA AAA AAA AAA AAA AAA AAAS AAAS AAA AAA AAAS ASSES 


SEQ 0090 


man 


mmmenn mee 


TTOOOOO MA AAMMMAMMMMAM 





N ? 
DZTUG-B TMOZ2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) O2-DEC-77 09:48 PAGE 91 


C2TUGC. P11 


O2-DEC-77 09: 46 


PROGRAM MESSAGES 
. SBTTL PROGRAM MESSAGES 
;OPERATOR INSTRUCTIONS 


SEQ 0091 





wedtaaneansned~s—ae* 


UGC. P 


DZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER 
C2T 11 46 


014014 
014022 
014030 
014036 
014044 
014052 


005015 
043117 
020123 
005015 
040522 
051117 


02-DEC-77 O09: 


047105 
050040 
020040 
051120 
020115 
042524 


020104 


000104 


MACY11 30(1046) 





8B 8 
O2-DEC-77 09:48 PAGE 92 


PROGRAM MESSAGES 


. 
, 


MSGR: 


MSGB: 


REXKRKK INSERTED 11-8-77 AXKKKAAAAAAAAAAAA AAA AAA AAA AAT ES 
.ASCIZ 


-ASCIZ 


CCR><LF>'END OF PASS 


CCR><LF>'PROGRAM ABORTED’ 


SEQ 0092 


IMUMMNMNNNNNMWMH WNUMNUUU UM! 


YYiNNNNHNHH WNW 


~ 
>. 


Cc 8 
OZTUG-B TMO2Z/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) O2-DEC-77 09:48 PAGE 93 SEQ 0093 
CZ2ZTUGC. P11 O2-DEC-77 O9: 46 PROGRAM MESSAGES 
370? 


tons ; XAAAAAAARAR AAA AAA AAA TARA AAA AAA AAAA AAA AA AAA AAAS AAAS 





DZTUG-B TMOZ2/TE16 DRIVE 


CZ2TUG 02-DEC-77 


3710 
3711 


C. P11 


014060 
014066 
014074 
014102 
014110 
014116 
014124 
014132 
014140 
014146 
014154 
014162 
014163 
014170 
014176 
014204 
014212 
014220 
014225 
014232 
014240 
014244 
014252 
014260 
014266 
014274 
014302 
014304 
014312 
014320 
014326 
014334 
014342 
014345 
014352 
014360 
014366 
014374 


005015 
041507 
052057 
051104 
020124 


000051 


FUNCTION TIMER 


09: 46 


055103 


052116 
051105 


050131 
031060 
042526 
052040 
052040 
020104 
051117 
020062 
020105 
052040 
046123 
OZ23443 
041040 
052123 


030440 


052524 
031115 
020066 
047103 
000122 
042520 
052123 
042522 
020106 
047522 
020040 


020105 


052040 
051104 


050131 
053101 
020123 
020105 
042105 


020104 
020123 
020077 
047057 
027461 


047440 
024040 
047516 
030057 


. NAM: 


. REG: 


. ORVS: 


. SLUS: 


. ORV: 


. SKEW: 


. NRZ: 


MACY11 30(104%6) 


-ASCIZ 


.ASCIZ 


-ASCTIZ 


ASCII 


. ASCIZ 


-ASCIZ 


.ASCIZ 


D 8 
O2-DEC-77 09:48 PAGE 94 
PROGRAM MESSAGES 


CCROCLF>'CZTUGC TM2/TE16 DOR FCNT THR’ 


CCROCLF>' TYPE FIRST ADDRESS OF CONTROLLER 


~TYPE TMOZ DRIVE #°S TO BE TESTED % 


‘FOR TMOZ DRIVE ° 


%0- TYPE SLAVE #'S TO BE TESTED % 


"SPEED TESTS ONLY? (YES/NO = 


"NRZ ONLY? (YES/NO = 


1/0)" 


1/0)° 





APPPBARRAAAXXELCE LCEELELere 


LLL LL LLL LLL LLL LLL! OL LL LLL LOL LLL LL LC: LC Le ttt ttt ti 


E 8 
OZTUG-B TMO2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) O02-DEC-77 09:48 PAGE 95 
CZ2TUGC. P11 O2-DEC-77 O09: 46 PROGRAM MESSAGES 





SEQ 0095 


SE ee eee ee tS 


wut 


014376 
014404 
014412 


014416 
014424 
014432 
014435 
014442 
014450 
014456 
014464 
014472 
014500 
014502 
014510 
014516 


005015 
043117 
006505 


005015 
042520 


051104 


047105 
052040 
000012 


051124 
020104 
000 


042511 


031060 
042526 
O53111 


020104 WM. EOT: 
050101 


050101 
047524 


047503 
046114 
020124 
051505 
041505 
C6504 


042040 
000040 
020105 


“oe. MESSAGES 


TRPY: . ASCIZ 


E. NCON: 


E. NORV: 
E. NSLV: 


ASCI2 


-ASCIZ 


.ASCIZ 
ASCII 


CCRO<LF>'END OF TAPE '<CR><LF> 


CCR><LF>' TRAPPED TO 4' 


"NO CONTROLLER AT ADDRESS SPECIFIED’ <CR><LF> 


‘TMO2 ORIVE ' 
‘DRIVE ' 


0 


C2 


ZTUG 
TUGC. 


Pil 


014524 


015062 


015064 
015072 
015100 
015106 
015114 
015122 
015130 
015136 
015144 
015152 
015160 


-B TMOZ/TE16 ORIVE 
02-DEC-77 


04 3440 


FUNCTION TIMER 


09: 46 
046123 


047516 
044501 


050101 


025052 


025052 
025052 


053101 


020124 
040514 
047506 
052123 


046524 


020122 
024501 


020124 


044526 
051122 


041527 
041506 
042011 
052011 


047440 
043516 
047522 


042515 
051105 
042105 


046511 
044520 
040527 
020107 
042122 


021440 


025052 


025052 
025052 


MACY11 30(104%6) 


F 8 
O2-DEC-77 09:48 PAGE 96 


PROGRAM MESSAGES 


E. ORV: 
E. NAVA: 


E. UNIT: 


E. SFT: 


E. HDR: 
E. HDOR1: 


E. HOR 2: 


E. TIMOV: 


E. TIMEX: 


E. GAP: 


. ASCII 
.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


- ASCII 


-ASCIZ 


.ASCIS 


.ASCIZ 


'O SLAVE ' 
'O NOT AVAILABLE FOR TEST'<CR><LF> 


‘NO TMOZ/TE16 UNIT FOUND TO TEST'<CR><LF> 


‘SOFT ERROR (DATA) '<CR><LF> 


‘TEST @ ' 
" DEVICE ERROR '<CR><LF> 


‘CS1' CHT) WC’ CHT> BA’ CHT> ‘FC’ <HT> 'CS2°<HT> DS’ <HT> “ER <HT> TC’ <CR><LF > 


' QUT OF RANGE ERPOR'<CR><LF> 


-ASCIZ <CROCLF>' TIMER OVERFLOWED’<CR><LF> 
-ASCIZ “CRO<SLF>'TIME EXPIRED WAITING FOR RDY'<CR><LF> 
" GAP & ° 


> TIME DOCUMENT LINES 


L. HDR1: 


-ASCIZ 


$99 0SS95 9639009559055 9 090280253095) 02998 0 Fd 2 0 dd 0d © 0 8 @ 0 0 dd 0 0 dD 0 0 0 0 0 8 9 0 8 | 


SEQ 0096 | 





rr nwmnm on vm 


OZ2TUG-8 TMOZ/TE16 DRIVE 
CZ Pi1 02-DEC-77 


ZTUGC. 


015166 
015174 
015177 


015360 


015365 
015372 
015375 
015402 


015572 


053517 


FUNCTION TIMER 


09: 46 
025052 

000 
052040 
051104 
052506 
047117 


051505 
053111 


046123 
—- 


044503 
044524 
044524 
052103 
005015 


047101 


053440 
04 3040 
047502 


053440 
051440 
004411 
053440 
051440 
053517 


053440 
051440 
042105 

000 


051040 
051106 
052117 


051040 
anaes 


042522 
052510 
004516 


025052 


030115 
053111 
041516 
052040 
020055 
020105 


053101 


040510 
051105 


005015 
041516 
004411 
051450 
044506 
047117 
042515 
040525 

000 


042507 
040525 


044522 
047522 
004524 


044522 
040524 
000 


044522 
052510 
004516 


044522 
052105 
053517 


040505 
046517 
004411 


040505 
051101 


042101 
042124 
000011 


MACY11 30(1046) 
PROGRAM MESSAGES 


L. HDR2: 


L. ORV: 
. wa: 


ih 


L. HDR 3: 


_ RNG: 
_ ACT: 


ORE. 


. CHAN: 


ASCII 


ASCII 


. ASCII 
.ASCIZ 


. ASCII 


ASC IZ 


. ASCIZ 
-ASCIC 


G 8 
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'*% TMOZ ORIVE FUNCTION TIMES- DRIVE # ' 


'O SLAVE @ ' 


‘0 
"9 CHAN. SER @ ' 


" "€CROCLFD'K' CCR CLF D 
"kX FUNCTION’ <HT><HT> TIME CSPECIF iCATION) “<HT>’ TIME CACTUAL) '<CR><LF> 


"RANGE =< ' 
“ACTUAL =' 


> TEST DESCRIPTOR HEADERS 


A. TO01: 


A. TO02: 


A. TOOS: 


A. TOOK: 


A. TCOS: 


A. TO06: 


A. T007: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


"X WRITE FROM BOT'<HT> 


"* WRITE START’ <HT><HT> 


"kK WRITE SHUTDOWN’ <HT> 


"k READ FROM BOT'<HT><HT> 


"* READ START’ <HT><HT> 


‘* READ SHUTDOWN <HT><HT> 


| 
| 
| 
'k WRITE SETTLEDOWN’ <HT> 


OZTUG-B TMOZ/TE16 DRIVE 


C2T 02-DEC-77 


UGC. P11 


015600 
015606 
015614 
015622 


016234 


020052 
051440 
— 


020101 


FUNCTION TIMER 
09: 46 


042522 
052105 
053517 


051040 
042522 
051101 


051040 


043040 


052524 
047522 
042504 
026522 


O04 3440 
055111 


041516 


042040 
044524 
a 


042046 
044524 


042101 
046124 
004516 


040505 
020126 
004524 


040505 
020126 
047504 


042101 


051055 


047122 
047125 
040514 
004506 


050101 
026505 


052101 
042515 
050102 


052101 
042515 
050102 


052101 
042515 
050102 


052101 
042515 


MACY11 30(1046) 


A. TO10: 


A. TO11: 


A. 7012: 


A. TO12: 


A. TO14: 


A. TO15: 


A. TO16: 


A. TO1?: 


A. TO20: 


A. 7021: 


A. T0232: 


A. 1025: 


-ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCI2 


-ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


. ASCIZ 


: . ASCIZ 


-ASCIZ 


-ASCIZ 


H 8 
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PROGRAM MESSAGES 


"kK RERD SETTLEDOWN' <HT> 


x 


kK 


‘x 


ce 


aad 


READ REV START '<HT> 


READ REV SHUTDOWN’ <HT> 


READ REV SETTLEDOWN' <HT> 


TURN AROUND DELAY F-R‘<HT> 


TURN AROUND DELAY R-F *<HT> 


GAP SIZE-STOP HALF '<HT> 


GAP SIZE-START HALF '<HT> 


‘* GAP SIZE-INTERRECORD' <HT> 


sad 


bad 


= 


coal 


Be 


GAP CONSISTANCY' <HT> 


DATA TIME-200BP I *<HT> 


DATA TIME-556BP 1° <HT: 


DATA TIME-S8O00BPI'<HT> 


DATA TIME-1600BP 1 °<HT> 


—_—— re ee ee 


SEQ 0098 


ge age B TMOZ/TE16 ORIVE FUNCTION TIMER MACY11 30(1046) 


- 
O2-DEC-77 09:48 PAGE 99 


TUGC. P11 02-DEC-77 O09: 46 PROGRAM MESSAGES 


7936 «0160242 O30455 030066 041060 
237" 016250 044520 000011 


——e + rw se eae ee se « a 


SEQ 0099 


ow ae Ne ED | <0 Se ee eee 


DZ2ZTUG-B TMOZ2/TE16 DRIVE FUNCTION TIMER 


C2TUGC. P11 


O2-DEC-77 O09: 46 


016254 
016262 
016270 
016276 
016304 
016312 
016320 
016321 
016326 
016334 
016342 
016343 
016350 
016356 
016264 


016365 
016372 
016400 
016401 
016406 
016411 
016416 


016420 


020052 


000200 
000001 


051105 
0 


051101 


052040 
050123 
053506 


052040 
050123 
042522 


057012 
053523 


047040 
000 
037412 


051501 
020120 
000011 
052111 
042514 
004513 


050101 
042505 
004504 
050101 


042505 
004526 


000107 
026522 
053505 
005015 


J 8 
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PROGRAM MESSAGES 


A. T7027: .ASCIZ ‘kK ERASE GAP TIME'<HT> 
A.TO30:. .ASCiZ ‘kK WRITE FILE MARK'<HT> 
A. TO31: .ASCIZ ‘Kk TAPE SPEED-FWD'<HT> 
A.TO032: .ASCIZ ‘xk TAPE SPEED-REV'<HT> 
L.CNTG: .ASCIZ <CR><LF>’ G' 
L.SWR: .ASCIZ <CR><LF>'SWR=' 
L.NEW: .ASCIZ ‘ NEW: ' 
L. QUEST: -ASCIZ <CR<LFD>'?'CKCRD<LF> 
_ EVEN 
ROBUF =. 
WTBUF =. 
. BLKW 128. 
_ END 


eee et ee. Ome ee 


— 


SEQ 0100 


eee 68 ee ae ee wee ee 


LLL LEILA LAL OS LL Ct ee ett 
= EE LS kT ee 


SE ee eee oe | 


i Weg soesay | 
OZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 02-DEC-77 09:48 PAGE 102 SEQ 0101 


CZTUGC. P11 02-DEC-77 09: 46 CROSS REFERENCE TABLE -- USER SYMBOLS 
fs) 011050 30508 3055 
ABORT 013764 2419 36838 
ACCL = 100000 1300% 
ACT11M 000766 1062# 2450 3666x 
ADUMPM 000770 1064%  3671x 
ANGTAB 001416 1392# 1750 1778 
AS = 000016 1199% 
ASFLG 001134 13728 2440x 2684 2686x 
ATA = 100000 1268% 
ATIME 001016 1358% 1752 1780 1844x 2003 2101x 2105 2107 2139% 2143 2145 
ATIMTB 001020 1359% 1822 2003x 
AUTOM 000764 10618 2413 2693 3519 3545 3658k  3661% 
A. 7001 015405 1456 38558 
A. T0002 015427 1457 38598 
A. TOO3 015447 1458 38628 
A. TOO4 015471 1459 38668 
QA. T005 015515 1460 38708 
A. T006 015537 1461 38748 : 
A. T0007 01555¢ 1462 3877% 
A. 7010 015600 1463 38808 
A. T011 015623 1464 3884% 
A T012 015645 1465 38888 
A.T013 01567 1466 3892% 
Q.7014 015721 1467 3896% 
A. 7015 015752 1468 3901% 
A. T7016 016003 1469 39068 
A.T017 016031 1470 39108 
A. T020 016060 1471 39148 
A. 7021 016110 1472 39188 
A. T023 016133 1474 3922% 
A. 7024 016157 1475 3926% 
A.T025 016203 1476 39308 
A. T0626 016227 1477 39348 
A. 7027 016254 1478 3938% 
A. T030 016276 1479 39418 
A. T031 016321 1480 39458 
A. TO32 016343 1481 39498 
A16 = =_—:«;ENN4ON 12248 
Ai7 #©«= 001000 12258 
BA = 000004 11948 2359x 
BAI = 900010 12408 3569 3605 3619 
2658% 3503 2508 
13888 1956 
13868 1871 
12558 2292 
12968 
12978 3328 
12988 3365 3568 3604 3618 
11688 
12958 


2491 2495 25068 
2542 2560 25748 


14928 1910 1960 1981 2022 3526 3550 





OZTUG-B THOZ/TE 16 ORI VE FUNCTION TIMER 
CZTUGC. P11 09: 46 


CNTLU 
CNTRLC= 
CNTRLO= 
CNTRLU= 
CNVDEC 
CNVOCT 
CNYTRO 


oy 
wD 


i” 
“ 
as 

nwo 





002034 
000003 
000017 
000025 
002734 
002626 
003264 
002746 
002640 
001770 
000015 


001400 
002000 


000200 


14998 


1510 


1891 
1873 


MACY11 30(1046) 


2435 


1882 


35108 


1991% 


2294 
3414 


224 6x 


17218 
2964 


321.3% 
2517 


2247 
3505% 
2501% 


2263 
z2e651 


1999 
2796 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


2494 
3790 


1884 


2247 


3120 


3220% 
2547 


24 39% 


2822 


2562 
3795 
1926 


2632% 


3148 


2598 


2546% 
2520% 


2292 
2727 


2474% 


2828 


3701 
3799 
1929 


2637% 


3617 


2599 


2594 
2536 


2294 


2519% 
2901 


3704 
3803 
1952 


2639 


2724 


2615% 
2577 


2298 


2522 
2931 


3712 
3813 
2458 


3569% 


2725 


2630% 


2661 


273? 


2528% 


2937 


3717 
3839 


3490 


3605% 


26.53% 


2943 


2601% 
2994 


LO A ET ee - -—-~- 


SEQ 0102 
3750 3755 3758 
3840 3954 3955 
3619% 
2634 2637 2643 
2605 
3025 3031 3302 


<< 6 ee ee ee 


OZTUG-B TMOZ2/TE16 ORIVE FUNCTION TIMER MACY11 30(104%6) 
O2-DEC-77 O09: 46 


CZTUGC. P11 


003654 


177546 
000100 
177516 


2609 
2442% 


2599 


3701 
3799 


2472% 


37708 


Z2345% 


3704 
3803 


02-DEC-77 09:48 PAGE 104 


2609% 


2361* 


2899 
3253% 


2145 


2765 
3110 


3855 
3906 


2482 
2471 


2007 


3712 
3813 


2735 


2992 
3259% 


2785 
3134 


3859 
3910 


2550 
3524 


201 3% 


3717 
3839 


CROSS REFERENCE TABLE -- USER SYMBOLS 


3243 


3260 


2811 
3162 


3862 
3914 


2700 
3528 


24.37% 


3750 
3840 


2844 
3194 


3866 
3918 


2711 


3552 


3755 
3954 


2866 
3280 


3870 
3922 


3758 
3955 


2828 
3320 


3874 
3926 


3770 
3959 


2917 
3357 


3877 
3930 


3775 


23952 
S394 


3880 
3934 


3781 


SEQ 0103 


2978 
S431 


3884 
3938 


378? 


DZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER 


CZTUGC. P11 

LPS) == 177514 
L.ACT 015376 
L. CHAN 015261 
L.CNTG 016365 
L.ORV 015244 
L.HOR1 015064 
L.HORZ2 015177 
L.HDR3 015300 
L.NEW 016401 
L. QUES 016411 
L.RNG 015365 
L.SLV¥V 015256 
L.SWR 016372 
MCPE = 020000 
MOPE = 000400 
MEDIUM O00041 
MMVEC = 000250 
MOL = 010000 
MR = 000024 
MSGA 014014 
MSGB 014036 
MXF €=©= 001000 
MEOT  O14376 
M.NAM 014060 
NAMPTR 001676 
NED = 010000 
NEF = Q04000 
NEM = 004000 
NOP = 


PLKCSR= 





172540 


O2-DEC-77 O9: 46 


N 8 
MACY11 30(104%6) O2-DEC-77 09:48 PAGE 105 
CROSS REFERENCE TABLE -- USER 


38518 
38368 


38498 


2039 
3704% 


3531% 


3404 


2044 


3365 


3399 


1702 


Z044 
15348 


1986 


3532 


2058 


3404 


1716 


2058 


2073 


3568 


2369 


2073 


SYMBOLS 


3604 


2396 


3618 


SEQ 0104 


1 


DZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(104%6) 
O2-DEC-77 09: 46 


CZTUGC. P11 
PLKVEC= 000104 
PRGFLG 001130 
PSEL = 002000 
PSH = 177776 
PUBLIS 003352 
DBUF = 016420 
ROFWD = 000070 
ROREV = 000076 
ROSW 001772 
RDY = 000200 
READ 005442 
RESVEC= 000010 
REVRD 995460 
RHINIT 005200 
RMR = QO0004 
RWO = 000006 
RWOOFF= 000002 
Cc .= 100000 
SCOPE = 104000 
SCPADR 001006 
SOWN = 000020 
Si2E 007014 
SKEWTS 013326 
SLA = 000001 
SLAVES 006442 
R = 177774 
SLVAVA 005150 
SLYNUM 001011 
SLVPTR 001012 











2485x% 


2524 


3607 
3610 


1582x 
2896 


3020 
2285 


2812 
3195 
2069 
2835 


2595% 


2105 


1532% 
2433 
2433 


2544 


3621 


2616% 
3497 


2576 
2391 


2107 


1913 
3493 


2553% 


39628 


3097 


3091 
3616 


2867 
3321 
3559% 
2935 


2631% 


3500% 
2617 


1954 
3547 


2559 


3149 


3121 
3639 


Z889 
3358 


2943 


264 1% 


1957 
3667% 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


2607 


3234 
3144 


2918 
3395 


3000 


264 7% 


1983 


2687% 


3239 
3177 


2953 
3432 


3029 


2648 


1987 


2705% 


3181 


2979 
3456 


3037 


2650 


2005 


2739 


3225 


3910 
3487 


2659 


2010 


3047 
3594 


2681% 


2014 


SEQ 0105 


3081 
3647 


3496 


2016 


Cc 9 
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DOZ2ZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 3011046) SEQ 0106 

CZ2TUGC. P11 O2-DEC-77 09: 46 CROSS REFERENCE TABLE -- USER SYMBOLS 

TBITVE= 000014 11668 1319 

TC = 000032 1204# 1932 1950 2237% 2250% 2251% 72650% 2757 2776 2857 2879 2969 3071 
3101 3328% 3365% 404% 3568% 3604s 3618% 

TCRLF 002364 1514 15798 

TEMPST 001766 14888 1504% 1524% 1525% 1526% 1528% 1532 

TIB 001764 Phy 1494% 1495x% 1496 1507x 1508 1511 1518 1520 1527x 1528 1541x% 1645% 

TIMER 004450 2059 20638 2071 2074 2163 2178 2738 2759 2778 2805 2837 2859 2881 
2910 2945 2971 3002 3039 3073 3103 3127 3155 3187 3245 3310 3346 
3383 3422 S448 3476 3583 3633 

TIMERR Q04%460 2065 20678 

TIMERO OO04474 207 38 

TIMER’ 004424 ZO058# $2062 

TIMOK 004506 2ZO85# 2763 2782 2809 2841 2863 2885 2914 Z949 2975 3006 3043 3077 
3107 3131 3159 3191 3277 3317 3354 3391 3428 3452 3480 3590 3640 

TIMON 004360 ZO35% 2159 2174 2754 2773 2801 2832 2854 2876 2906 2942 2966 2999 
an ge 3098 3122 3150 3182 3240 3307 3343 3380 S419 S443 3471 

TKB = 177562 1159% 1494 1540% 1545 1866 1889 

TKISR 003612 1331 18898 

TKS = 177560 1158% iS39k 1542k 1543 1863 2722% 

TKVEC = 000060 11738 1330 

TMBASE 001014 13578 1982 Z2463X 2464 

TAHCMD §8=005560 a 2307 2317 2327 Z359% 3293 3329 3366 3405 3438 3466 2570 3606 

TMCS1 = 172440 11898 1357 

THK == 000004 12568 

TPB = 177566 11618  1548% 

TPS = 177564 11608 1546 

TPVEC = 000064 11748 

TRAPVE= O000S4 11728 

TRE = Q40000 12298 

TRTIVEC= Q00014 11678 

TSTNUM 001126 1366# 1846 1851 1916 1985 2019 2102 2Z438k 2749k 2770% 2790% 2816% 2849% 
2871% 2893% 2922k 2958% Z2983% S3014% 3060%  3O85*k 3114*% 3138k 3167k 3209k% 3285% 
3289k% 3324k 3361% 3398k 3436k% S34e0*  J3564% 3600% 

TSTOO1 907566 2733 2740 27498 

TSTOOZ 007652 27708 

TSTOOS 007730 27908 

TSTOO4 010020 28168 

TSTOOS 010126 284 9% 

TSTOO6 010212 28718 

TSTOO? 010276 28938 

TSTOIO 010376 29228 

TSTO11 010516 2958 

TSTO1Z2 010614 29838 

TSTO13 010724 30148 

TSTO14 011064 30608 

TSTO1S 011156 30858 

TSTO16 011264 31148 

TSTO17 011360 31388 

TSTOZO 011470 31678 

TSTO21 011610 32098 

TSTOZZ2 012114 32858 

TSTOZ23 012122 32898 

TSTOZ4 012244 33248 


ee oe ee ee ee eee ee. ee 


dD 9 
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OZTUG-B TMOZ/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) SEQ 0107 | 
C2TUGC. P11  02-DEC-77 09: 46 CROSS REFERENCE TABLE -- USER SYMBOLS | 
TSTO25 012374 33618 | 
TSTO26 012524 33988 
TSTO27 012654 3400 34368 
TSTO30 012740 34608 
TSTO31 013334 3559 35648 
TSTU3Z2 013462 36008 | 
TTIN 002246 1506 15398 
TTIN1 002266 1S43# 1544 
TTIN2 002302 15468 1547 
TYPDEC 002742 16988  174%6 1749 1753 1774 1777 1781 
TYPE = OO00004 1305% 1498 1499 1592 1522 1579 1681 1716 1744 1747 1750 1751 1754 
1772 1775 1778 1779 1782 1785 1849 1871 1876 1882 1884 1915 1922 
1926 1929 1939 1942 1947 1952 1956 2067 2261 2265 2266 23% 2418 | 
2458 2459 2460 2470 2480 2516 2518 2548 2600 2692 2709 2723 2730 | 
2732 3490 3523 3530 3685 
TYPE! 002356 15778 1594 1623 
TYPEZ 002404 1578 15848 
TYPES 062412 1581 15878 
TYPE4 oOO0241€ 1585 15908 
TYPFLG 001132 13708 1651x% 1659x 1679 1691% 1698k 1714 
TYPHDR 007440 2694 27208 3498 
TYPOCT 002634 1501 1659% 1784 1917 1946 1951 3533 
UBREAK= 177770 11578 
UNS = O40000 12838 
UNTFND 001131 13698 2618 2679% 3521 
—E = 020000 1250% 
WAITRD 005236 2255# 2271 2337 2343 2347 2761 2780 2807 2839 2861 2883 2912 2947 
2962 2973 2987 3004 3018 3041 2064 3075 3089 3094 3105 3118 3129 
3142 3146 3157 3171 3175 3179 3189 3217 3227 3237 3247 3315 3352 
3389 3426 3450 3464 3478 
WAITT! 005240 2256% 2259% 
WC = 900002 11938 2360% 
WCE = O4O000 1251# 
WCHKF = OOCOSO 12178 
WCHKR = 000056 12188 
WEMK = 000026 12138 3470 
WFWO = O00060 12198 2311 3297 3333 3370 3409 
WROCNT= 177600 13108 2309 2319 2329 
WRITE 005424 2269 23078 2341 2753 2771 2791 2817 2960 2985 3016 3062 3087 3116 
3140 3169 3173 3215 3462 
WRL = 004000 12648 
WRT. BK 005516 2341% 2872 2894 2924 
WTBUF = 016420 2308 3294 3330 3367 3406 39638 
XDUNPM 000771 10658  3673% 
xXDPM 000767 1063% 2645 3664% 3686 
SCHARC 002330 15678 1610% 1614* 1620 
SCNTRL 002331 15688 1575% 1577 1605 18923% 
SCRLF 002332 1569% 1579 
SENDAD 013264 1045 35408 
SFILL 002321 15618 
$HT = 11 15598 1590 
S$NULL 002320 15608 1595 
$SvPC = 000764 1032% 1051 
S$TKFLG 002323 15648 
$TPB 002326 15668 16078 
STPFLG 002322 1562% 
| 


O2ZTUG-B TMOZ/TE16 ORIVE FUNCTION TIMER 
C2TUGC. P11 46 


STPS 


O2-DEC-77 09:4 
002324 15653 
017020 10248 

134 3% 

1831 
003656 1328 
003500 18618 
002604 1638% 
005342 2267 

3645 
002562 1627% 
004132 1326 
002336 1322 


1661 
19818 
15728 


MACY11 30(1046) 


... - 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


10368 
13618 
3691 


10408 
13738 
39614 


10478 
13818 


3963 


Zi11 
3291 


2086 


SEQ 0108 
10518 13198 1320 13308 13358 13388 
13828 13838 13848 13938 15708 1604 
39648 
2154 
3326 3363 3402 3485 3566 3602 
2124 


OZ2TUG-B TMOZ2/TE16 DRIVE FUNCTION TIMER MACY11 30(1046) 
CZ2TUGC. P11 O2-DEC-77 09: 46 


INPUT 1118% 2461 2481 2549 2699 2710 

RESTOR 11158 1682 1717 1810 1853 1961 2110 
REWIND 1121% 2267 2751 2850 3050 3211 3291 
SAVE 1112%# 1660 1699 1793 1820 2085 2123 
SETGO 11318 2270 2291 2342 2877 289? 2927 


TIMCHK §=1128% 2162 2177 2759 2778 2805 2837 
3103 3127 3155 3187 3245 3310 3346 
TIMEON 11258 2174 2754 2800 2832 2854 2876 


SCATCH 9958 i024 
SCHNMO 
SCPREG 995% 1136 
SCPVEC 995% 1163 
TYPE 995% 1553 


ABS. 01/7020 000 


ERRORS DETECTED: 9 


CZTUGC, CZTUGC. SEQ/SOL/NL: TOC/DOC=CZTUGC. SML.“ML.C2TUGC P11 
RUN-TIME: 4 7 .§ SECONDS 

RUN-TIME RATIO: 440/13=23.5 

CORE USED: 8k (15 PAGES) 


DOCUMENT PAGES: 109 


ey te: P +4 § 
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CROSS REFERENCE TABLE -- MACRO NAMES 


3644 


3063 
3226 


3039 
3098 


SEQ 0109 


3069 
3235 


3073 
3122 


9 
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